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FOREWORD 


This Addendum to the MAWLOGS Programmer's Guide is submitted to the 
Department of the Army, Washington, D.C. 20310 by the BDM Corporation, 
1920 Aline Avenue, Vienna, Virginia 22180, as required by Contract 
Number DAAG39-76-C-0134. 
This document is one of sixteen that describes the Models of the US 
Army Worldwide Logistic System (MAWLOGS). MAWLOGS was developed for the 
Deputy Chief of Staff for Logistics, Department of the Army, under the 
monitorship of the US Army Logistics Evaluation Agency and the US Army 
Logistics Center. The development objective was tu provide a capability 
to aftalyze and compare the performance of muitifunctional logistic 
systems, to include both current and proposed systems. MAWLOGS jis not a 
model of a particular Army logistic system. It is a system for the 
rapid assembly of discrete-event stochastic simulation models of a wide 
range of logistic systems and for the processing and interpretation of 


data associated with the execution of such models. The original documenta- 


tion was completed in 1974. Documentation for subsequent software 
development has added five volumes to the original eleven. The documents 


describing the system and how to apply it are listed below. 


| 
| 


Volume | - General Description 
Votume I[t - User's Manual 
| Volume {1A - Addendum to User's Manual 
Volume III - Module Catalog 


Part 1 - Service Modules 


Part 2 - Field Maintenance and Supply Modules 

Part 3 - Wholesale Supply and Maintenance Modules 

Part 4 - Transportation Modules 

Part 5 - Communication Modules aes a 
Part 6 - Continuous Service Modules oa 
Part 7 - Continuous Supply Modules a = 
Part 8 - Containerization Modules 

Part 9 - Model Change Modules 
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Volume IV 


Part | 


Part 2 


Part 3 


Part 4 
Volume IVA 


Programmer's Guide 

Writing and Testing Modules, Module Library 
Maintenance and General Guidance 

Technical Description of the Model Assembler 
Program 

Technical Description of the Output Data 
Postprocessor System and Programs 

Module Library Program Listings 


Addendum to Programmer's Guide 
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CHAPTER | 
INTRODUCTION 


The MAWLOGS Programmer's Guide! is written at the computer programmer's 
level of detail, describing how to write and test MAWLOGS modules, the 
Model Assembler program, and the Output Data Postprocessor System (ODPS) 
programs. This addendum to Volume IV is provided to describe the changes 
required to add the continuous flow modeling capability to the MAWLOGS 


modeling system. Chapter ||! describes the new aspects of writing continuous 


flow modules, such as those described in Part 6 and Part 7 of the Module 
Catalog. Chapter 11! describes the changes made to the Model Assembler 
program and provides listings of the subroutines that have been changed. 


Chapter IV describes the ODPS programs in a similar fashion. The reader is 


] 
] 
] 


reminded that this is an addendum to the Programmer's Guide and therefore 


should be used in conjunction with Volume IV and the various parts of 


- 


Volume !t11, the Module Catalog. 


TR. L. Kessinger, et al, Models of the U.S. Army Worldwide Logistic 
System (MAWLOGS), Volume IV, Programmer's Guide, General Research Corpora- 
tion, OAD-CR-41, August 1974. 
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CHAPTER 11 
WRITING CONTINUOUS FLOW MODULES 


A. BASIC DIFFERENCES 


The basic difference in discrete event and continuous flew mudels 
requires significant differences in the programming of modules for the 
different families. A discrete event model represents only siunificant 
events in the system occurring at random times. [In a continuous flow 
model, a rigid time stepping procedure is set up to update all variables 
in the system at the same time. 

Although continuous flow verbs are designed to be utilized in a mode] 
description in the same manner as those in the discrete event families, 
the programming structure of continuous flow verbs is quite different. A 
typical discrete event verb represents the processing of a demand or ship- 
ment which is characterized by a set of attributes in the arrays ATRIB or 
HOLD. A verb expects certain attributes to be used for specified purposes 
and will alter those attributes and pass their contents back to the calling 

. program or store them in a file for later processing. The set of attributes 
is sent through the node network system by references to different nodes 
and exists aS an entity throughout its lifetime, either in a verb during 
processing, in the time file waiting for the next event to occur, or ina 


queue at a node. 


ea ar a a 


In contrast, continuous flow models represent the rates of flow 
between nodes and the levels of materiel at nodes in the system. The con- 
tinuous flow verbs contain equations to calculate these rates and levels 
at every time step, based on values from the previous time step. There is 
no identifiable set of attributes representing an individual demand or 
shipment traveling through the system. The level of detail in a continuous 
flow module is determined by what types of rates and levels are represented 
and what interactions between them simulated. Since a module does the same 


thing every time step, the size of the time step in a model determines how 
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| 


closely the model represents the real system. For a steady state system 
with a slow rate of change, a large time step is possible, thereby reducing 


computer running time. For a system in a state of flux with rapidly chang- 


ing rates, a small time step is required in the model to properly represent 


the system flows. 
B. MODULE STRUCTURE 


A continuous flow model is designed so that every module is executed 
twice in every time step, first to update the levels of materiel, and a 
second time to calculate a]]} the new rates of flow in the system. The model 
also operates in two modes, one to set up the rate/level linkage between | 
nodes and the other to simulate the flows in the system. Due to this method 


of operation there is a general structure used in every continuous flow 


module. Figure II-] outlines this structure. There is a setup section 


which is executed in one of the passes when the model is operating in setup 
mode. Then there is a section of code which are the equations to update 
tie ievels represented in the module. This section is executed during the 
levels pass in the simulation mode. Once the section of code is completed, 
contro] is returned to the calling program by a RETLOG. Finally, there is 
a section of code which contains the equations to update rates of flow 
which is executed during the rates pass in the simulation mode. Each sec- 
tion is independent of the other and no two of them are ever executed 
together during the same pass. Each module has this structure, but some 
may have vacuous sections. For example, a module may contain equations to 
update rates only, and return control immediately when it is called during 
a levels pass. 

Within tnis structure, parameter slots are utilized in the standard 
MAWLOGS fashion to provide the flexibility when a module is coded of not 
specifying what programs must be used with it. Thus, a certain procedure 
to be simulated need not be specified until the model description is 


written with the name of the procedure module entered in the parameter slot. 
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7*= CEVRB. (S. 0= 
* CALL RLSYS 
IF (RLMODE .EQ. SIM) GO TO 


C SETUP - DEFINE LINKS 
IF (RLSW. EQ. LEVELS) CALL RETLOG 


CALL RETLOG 
C SIMULATION 
100 IF (RLSW. EQ. RATES) GO TO 150 


C LEVELS PASS 
EQUATIONS TO UPDATE LEVELS 


CALL RETLOG 


C RATES PASS 
EQUATIONS TO UPDATE RATES 


CALL RETLOG 


Figure II-1]. Structure of Continuous Flow Module Programs 
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Cc. STATISTICS COLLECTION 


A programmer writing function modules of the rate/level variety need 
not be concerned with the collection of statistics in the program. In 
discrete event modules, the collection of statistics must be performed 
every time a variable is changed in the module program. However, this 
function is performed at prespecified intervals for ail flagged variables 
by the module RLSTAT in continuous flow modules. This function and the 
associated service modules are described in detail in Part 6 of Volume III, 


the Module Catalog. 


D. DATA STRUCTURE 


The continuous flow modules that have been programmed to date are 
documented in the Module Catalog, Part 6, Continuous Service Modules, and 
Part 7, Continuous Supply Modules. These modules utilize the PDS dataset 
structure for storing and referencing permanent attribute data. In addi- 
tion, there are two common blocks which are used for temporary attributes 
and working storage areas. The common block /RLSYS/ is utilized by the 
rate/level system routines. This block contains the rate/level control 
words such as the size of a time step, the identification of the mode of 
operation for a pass of the model, rate/level delay parameters, and rate/ 
level PDS dataset type identifiers. The common block /SUPC/ is utilized 
by the continuous supply modules. It contains variables that are set by 
modules which loop through various types of PDS datasets in the model. 
These variables include stock status, rates of flow, fill rates, and 
splitting factors which are in turn referenced by individual supply modules 
in calculating new rates and levels. Each of these common blocks is des- 


cribed in detail in their respective parts of the Module Catalog. 
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CHAPTER It} 
MODEL ASSEMBLER PROGRAM CHANGES 


A. INTRODUCTION 


The MAWLOGS Mode] Assembler Program was designed to read a coded 
description of a node network structure, select the necessary pre-programmed 
modules from the Module Library, and create a complete simulation mode} 
program of the logistics system. The use of the Model Assembler is des- 


3 


cribed in the User's enuele? and a complete technical description is 
given in the Programmer's Guide. 
The changes made in the Model Assembler have been minimal. These 


changes can be placed in three categories: (1) expansion of the verb 


i 


argument types accepted, (2) reduction of Model Assembler printed output, 
and (3) increase in the number of modules allowed in the library and in a 
model description. Program changes have been made in six subroutines of 
the Model Assembler (BLOCK DATA, HTSCAN, MDSCAN, NODEND, NODFMT, PSTRIN). 
The description and current listings of these routines are included in this 
chapter. These descriptions supercede the respective listings in the 
original Programmer's Guide. 

The types of verb arguments now accepted by the Model Assembler are 
positive integers, negative integers, positive floating point, negative 
floating point, and hollerith. The exact format is given in the Addendum 


to the User's Manual. 


‘burger, R. T., et al, Models of the U.S. Army Worldwide Logistic 
System (MAWLOGS), Volume II, User's Manual, General Research Corporation, 
OAD-CR-41, August 1974. 


Sgurger, R. T., Models of the U.S. Army Woridwide Logistic System 
(MAWLOGS), Volume I1A, Addendum to User's Manual, The 80M Corporation, 
BDM/W-76-211-TR, January 1977. 


“purger; R. T., Models of the U.S. Army Worldwide Logistics System 
(MAWLOGS) , Volume IV, Programmer's Guide, Part 2, Technical Description of 
the Model Assembler Program, General Research Corporation, OAD-CR-41, June 1974. 
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The printed content of the HOLDTABLE for a node is now suppressed 
unless there is an error in the node description. This greatly reduces 
the number of pages produced by the Model Assembler. An example of the 
new format of the HOLDTABLE listing is shown in the Addendum to the User's 
Manual. 

Certain dimensions have been expanded in the Model Assembler Program. 
The current capacity of the program is as follows: 


NVMAX = 600, Maximum number of modules on the module library 


NSVMAX = 400, Maximum number of simple verbs referenced in a 
model description 
NVNMAX = 300, Maximum number of modules referenced in a single 
node description 
NODMAX = 100, Maximum number of nodes in a model description 
NAMMAX = 60, Maximum number of common decks referenced in a model. 


B. PROGRAM BLOCK DATA 


This program contains the data statements to initialize the necessary 
common variables in the Model Assembler program. The name of the module 
which keys the standard package of routines for a model are defined here. 
The name AAMAIN is placed in the first portion of the array SIMVB. The 
pointer to the array SIMVB, the variable ISIM, is set to the location of 
AAMAIN. The array ISI is initialized with the value 2 in the first ISIM 
positions to indicate that the module is a routine. The characteristic 
for the module (P) is entered in array NPSLOT. The cross reference cards 


in AAMAIN and in those modules referenced by it directly and indirectly 


then define the standard package. 


1 


{ 


—_ 


! 


| 7 


nu 


INITIALIZE NAMES 


“LOCK 
CVAMIIN 


DATA 
JEXPA f/f TOIL, TCOMMO,L PAR, TEQUAL,SRPAR,JPER,TAST,[SLAS4, 
TPLUS,IMINUS 
«NID 
JaRPHAS 4S TEL 
AIPSVe / IPSvR 
J*AIN/S AVB,TERFEH, TENDS, ANAND, ANULL 
/ TIM /¢ KC,OTIM 
f/f FERCT/ TERET 
/SCAN/ §$620,50),TPP(29,50),N620,50),1°F20),58(29) 
7 IMA, JIMAX 
COMMON /SIMVR 4 SIMVA(U09),VREPCUOO) sIST4,KSIMVE(GN0), IND VA, 
TNOLTRONSVMAX,VRPHNIDE 390) ,NYNID,NVNMAX 


MMOIN JAN 4 
HIM MON 
IMMUN 
MMiN 
AMMEN 


AMON 


ODIAMAANIAM 


pM Myyh 


COMMON /MROLDS MAXALN 
JQaTA MAXHLD /2000/ 
COMMON /wRTS KOLRTT,«2(40),KPMAK 
‘ATA KPMAK suos 
yaTA [MAX /20/ 
NATTA JMAX S50/ 
QNATA NVNMAX/300/ 
NaTA TENOS / Os 
Jats NVMAX /600/ 
NATTA NSVMAXsOO0DS 
NATA YTPSvR SOS 
YaTea TFL /\/ | 
COMMON /SCOMDEK/S COMNAM(60),INDNAM,NAMMAX, 
CIMDIM(80,2),INDDI4»,MAXDIM, 
NODNAMCINO) -INONID NID MAX, 
INITCN(60),-LASTCD(60) 
DATA TNDNUD,NINMAY /0,53007 
DATA TNDONAM,NAMMAX /0,60/ 
NATA JNADIMeMAXOIM /0,86/ 
DATA INITCD,LASTCD 16080, 6080/ 
cu /GCHARC/ NDEL,NENO, STRING(1) pSUFF CRO) eLUNITAZINC-ICD-LOUT 
PILDBUF(CBOI-LICATE(10O) ,COSC4N,NEWCRO,NCHAR 
NATA NEwWECRDsCDSCAN 40,0 / 
Daya NCHAR 419 J 


COMMON /SWITCH/S IXFL LIBEL oe KEYEMT»+LSTM IN, ISTOSRMUPDAT 


COMMON /VLTES TV,VIT (600), 1ST(600),NPSLIT (600) ,NVMAX 

COMMON sSUMBRS/ NTA(21) 

TATA OTA JLHOe LHL LHe LH Sp LHe LHS, Lb ep LHe LMA, IH9, 
ZHI POHL Lp 2HL 2,24) Se PHI 4,215,241 6,2eH17, 
2H1B,2419,2H20 / 

LTA TERPCT /O0/ ; = 
pata IDV ICOM, PAR, TEQUAL, TRPAR, IPER,TAST,ISLASH, 
TPLUSSsIMINUS/S 1525 deb eS yp On 7, 8e 9019S 

DATA TNC /128/ 

DATA KTIM,NTI4M/O,9~ 

YATA KNOOE 4 0 J 

DNATA IV,IL 7020 / . 

Nata ANULL /1M® / 

OATA IENDS 40/ 


OF STANDARD SERVICE ROUTINE PACKAGE 


NaTa SIMVR /6HAAMAIN/ 
Nara Ste #UF 

Dats ISI #27 

NOTA NESLOT /{HP/ 

ENS) 


BESS 


THE BDM CORPORATION 


C. SUBROUTINE HTSCAN 


This routine performs a scan of the HOLD table developed in Phase | of 
node processing and builds stacks which correspond to the levels of parenthe- 
sization. The stacks contain the content words of the parameter slot strings 
for verbs referenced in the node and are utilized by routine WRISTA to 
create the FORTRAN code for the P10000 linkage routines for the node. Up 
to 20 levels are allowed including the main level of the node itself, that 
is, parameter slots may be nested to a depth of 19. 
Stacks are built in a manner so that as each left parenthesis - except 
for a left parenthesis associated only with a ''P='' - is encountered, the 
current stack is placed in abeyance and a new stack is started. As each 
right parenthesis is encountered, an opposite process occurs and the stack 
started last is written out by routine WRISTA and processing of the previous 
stack is resumed. 
The stacks are built in array S(1,J) where | is the level of the 
stack and J is the index to the content words contained in the stack at 
}o-vel 1. There are several corresponding arrays which contain additional 
data relating to the stack entries. Array N(1I,J) contains packed informa- 
tion created during the HOLD table scan. The right hand portion of the | 
word (packing factor 4096) contains the number of the subnode mentioned in 
a node reference or the number of the P10000 routine which handles the 
parameter slots for a verb reference. If no subnode number is mentioned in 


the model description, the default value set in N(I,J) is one. If there 


| 
are no parameter slots specified with a verb reference, the value in N(I,J) | 
will be zero. The left hand portion of the word in N(1,J) can contain the | 
number of the subnode which the content word in S(I,J) begins, the number 

of the parameter slot which the content word in S(1I,J) begins, or nothing 

if the content word is imbedded in a subnode or PS string. If the content | 
word in S(1,J) is a node name rather than a verb name, the value in N(I,J) 

is multiplied by -1. 

Array IP(1) holds the number of the P10000 routine which is written 


out from the stack for level |. The position in the HOLD table where the 
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argument string (i.e., P = i,j,k,-..) for a verb reference begins is stored 
in array IPP(1,J). If a verb reference has no arguments, IPP(1,J) is set 
to zero. 

As the stacks and corresponding arrays are built, the order of the 
delimiters and content words is carefully checked and error messages are 
printed out for any illegal combinations. One new combination has been 
added as acceptable, a minus sign in an argument string. The code has been 


expanded to handle this case at sections 20 and 40. 


| 
| 
| 
| 
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SURROUTINE ATSCAaN 
Coe = 
Coe THIS ROUTINE CUNTROLS PMASE 2 IN THE PROCESSING OF EACH NODE IN 
Cee TME MODEL. THE HOLD TABLE IS SCANNED AND & STACK IS SET UP FOR 
Cee EACH LEVEL IN THE NODE DESCRIPTION, THE ROUTINE wRISTA IS CALLED 
Coo. TO RITE THE LINKAGE RPOUTINES FOR EACH STACK 
Cee 
jose 

COMMON /TERSW/ TERSw 

CIMMUN /TPSVR/ TPSV8 

QaTaA TPSVB /0/ 

CIO“@MON /T/ Tod 

COMMON /SC4N/ $(20,50),IPP(20,50).N(20,50),7°(20),J38(20) 

eT AX, JMAX 

COMMON /ADDIT/S TRET 

COMMON /ADVSCA/ ISCAN,INEND, TPNELW,PCONTW,IVR 

COMMON /ER/ ICDH,ANMI 

COMMON /EXPA/S TOOL, ICOMMA,L PAR, TEQUAL,TRPEAR,IPER,JTAST,ISLASH, JPLU 

1S,IMINUS 

COMMON /GCHARC/ NDELZNFND,/ STRING (1) pBUFF (80) ,-LUNIT, ING, ICO,UOUT 

1 PILOBUF (80) ,-LOCATE C10) ,COSCAN, NEWCRO,NCHAR 

COMMON SVLIB/ JV,VI(600),TST (600) ,NPSLOT(600),NVMAX 

CUMMON /MAIN/ AVBSTFREEM, TENDS, ANWND,ANULL 

COMMON /TABLE / TBEG(20),TLEN(20) 

COMMON S/MHOLDZ MAXHLDN 

COMMON HOLD (4) 

EQUIVALENCE CHODLO(1),IHOLD(1)) 

NIMENSTON THOLODC1) 
Cee FRANP, DIN?PT PROCESS HOLD TABLE IF IENDS ,EO. 9 

T+ CIEND§,£9,9) RETURN 


Ces 
Coe BEGIN PROCESSING HOLD TABLE 
Cue INITIALIZE STACK POINTERS 


Tj s: 
J=0 
ISC4NS0 
THOLOCL)SICOMMA 
| rer x , : se aici anteeneten | 
| Coe FETRIEVE NEXT DELIMITER CONE AND CONTENT WORD FROM HOLD TABLE 


1 C4LL ANVSCA 


Coe STATEMENT NUMBERS OF LOGIC FOR DIFFERENT DELIMITERS 
LEFT PARENTHESIS FOLLOWED BY INTEGER 


| Cas 10 = ae 
} Coe 20 © LEFT PARENTHESTS FOLLIWED 8Y P 

Coe $9 = DOLLAR STGN FOLLOWED KY INTEGER 

Ces 40 © DOLLAR STGN FOLLOWED BY p 

Cus 50 = COMMA 

Cas 60 «= RIGNT PARENTHESIS 

fue s 70 e SLASH Tee 

Cas AN # DOLLAR SIGN SLONE 

Coe 99 «= PERTOD 


TE (CTPDEL*,GT.900) GI 79 16 
TECIPDEL*.E9.899) GO TO 20 
TF CTPNELH,GT.190) GT TD 30 
TEC IPDEL4.EQ.99) GO TO 40 
TECTODELH*,EQ,ICIMMA) GO TH $0 
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TECTPREL WED. TRPAR) GO TT) 49 
IF CTPDEL«@,FQ,ISLASH) GI TO 70 
TECTOPNEL*.ES.,I09L) GO TO 80 
TF CIPDEL A FOU, TPER) GN TN 90 

Cc 

C FALL THRU TF IPDEL™ NONE OF THE ASfVE 
CALL ER(1900,001) 


; G) Tr { 
Coe 
Cee OFLIMITES TS A CIMMA, ANDTHES ENTRY TO BE “ADE IN CURRENT STACK 
Cer. INCREMENT PINTER J 
54 CONTINUE 
To Jeo] 
TF €3 GOT, JMAK) CALL ER (7,6.9,PCINTH) 
TeP(T, j)=0 
NICE ed }20 


TF CPCINTW EQ ANULL) GO 79 S01 


Cee ENTER CONTENT wR FIAD AFTEQ CIMMA IN STACK 
502 S(IeJVSPCONTA 
GO. T0 4% 
Cee NULL CONTENT wORD AFTER COMMA, CHECK FOR NEXT DELIMITER, SHOULD 
(steee «mF BR ASTERTSK FOR A NODE REFERENCE 
591 C4LL ADVSCE 
TF CIPDELWINE. TAST) CALL ERC 191,0,90) 


NET, J) se { 
C MINUS NC) VALUE FLAGS SUBNTDE ENTRY NO, FOR NODE REF, 
€ POSITIVE FLAGS PIS NO FOR PS STRING FREE 

Bm Th S02 
Gee 
Cee DELIMITER TS & PERTOD, SHOULD JINLY FILLOW A NIDE REFERENCE 
Crs N(I,J) LE. 0 FOR A NODE REFERENCE 
90 TECN(T,J),GE.0) CALL FRO192,0,9) 
GC’ “SET MET FI) Th REFLECT PROPER SIAN INE QEF ERENCE 

S€T ed 2NCI,J)¢1 =" BF eCPOCINTw) 
C N(CIT,J) SET TO MINUS ONE AUTOMATICALLY WHEN NODE REF FOLLOWING AST 
C ENCOUNTERED »THEREFORE ONE 1S ADDED TO RALANCE THIS FUR CASES até 
C CASES wRERFE THEGE FOLLAIWS FURTHER SUANIDE SPECIFICATION,, 

GN TO 4 
19 CONTINUE 
Cas 
Cee DELIMITER ITS A LEFT PARFNTHESTS FOLLIWED RY AN INTEGER 
Cae FILLOWING LOGIC ADVANCES TO THE NEXT STACK TD S3UILD THE PS ROUTINE 
Cee “4ICH IS ASSUCTATED wITH THE VERA IMMEDIATELY PRECFOING TRE LEFT 


Cee PARENTHESIS 


Cee 
Coe LEFT PAREN SHOULD NOT FOLLOW A NIDE REFERENCE 
Coe 
TF(NCT»J)eLT,0) CALL ERC103,,.9) 
Cee TPSVR IS COUNT OF VERS REFERENCES WITH WHICH PS STRINGS ARE RELATED 
IPSvA s [PS§vB8 + } 
Cee ENTER T8SV8 NUMBER IN NCIT/J) TI LINK VERS REFERENCE IN THIS STACK 
Coe “TTH LINKAGE ROUTINE TY¥PLEYENTING ITS PS STRINGS 
NOTe/J) = “CIe+JS) © YPSVA 
Coe CUUNTEK J 1S SAVED FOR STACK T RBEFIRE STARTING NEW STACK, THIS 
& ALLIS PESUMPTION OF PROCESSING IN ULD STACK wHEN NEW ONE FINISHED, 
ASCEY & od 
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TACK BY INCREMENTING STACK COUNTER J] 


$s 
1 
7 


0GT, I4AxX) CALL ER €7,549,PCINTw) 
AQRAY TR CONTAINS NUMBER OF P10000 RIUTINE CREATED FROM STACK J 
1P(T) = TPSVA 


Gee 
Cow INITIALIZE POINTERS FOR NEW STACK ( Je STACK ENTRY, IPP= LOCATION 
Cus JF ARGUMENT STRING P= ) 
ies ok 
TPPCI,J) = 0 
NCTeJ)S4096e(TPDELW=900) 
ENTRY PNINT NUMBER ITS SAVED 
IF CPCONTH,EQ,ANULL) GO TO 101 
StTeJ)SPCONTH 
GO To 1 


ULL CONTENT wORD AFTER (Is wee » GET NEXT DELIMITER 
C4tLL ADVSCA 
IF(IPDELW,GT.100) GO TO 1010 
TE CTPDELS,E9.99) GO TO 1009 
IFCIPDELW, EQ, IRPAR)G) TO 1011 
IF (IPDELW.NE.IAST) CALL ER(104,,0) 
Cee ERROR JF A NODE REFFRENCE IS NUT THE CAUSE OF NULL wORD AFTER LParR 
N(I,J)aeN(I,J) #1 
¢ SET UP N(T,J) TD REFLECT SUBNODE REF,,FOR NODE REF aenes 
60 TO 102 
1999 S(I,J)sANULL 
G3 TH 40 
1919 FcleJ)SANULL 
Cee CHECK TO INSURE LEFT PAREN NOT FOUND AFTER NULL VERB REFERENCE 
Coe AND THAT PS NUMBER WITHIN RANGE, 
IF (TPDEL*® GT, 120) CALL ER(104,3,0) 
GO Th 30 
1911 S(Te/-JYSANULL 
GO TO 60 
30 CONTINUE 
Cee = 
Cee DELIMITER ITS A DOLLAR STGN FOULLIWED BY INTEGER PS STRING INDEX 
Cee PS STRING SHOULD NOT OCCUR IN MAIN LEVEL OF NODE €( I EQ, 1) 
TFECT.EQ,1) CALL ERC104,8,0) 
JsJe] 
NOTp-J) 300968 (IT PDELWe1I0) 
22 ABOVE TRIGGERS ENTRY POINT FOR PS SUBRIUTINE?? 
TPP (1, J)=E0 
TF CPCONTW,EQ,ANULL) GO TO 30] 
CONTINUE 
S(IeJ)SPCONTHW 
6 TH 1 
3999 SCT eJ)SANULL 
50 TH UO 
3939 SCT,J)SANULL 
C CHECK TI INSURE THAT LO4R NOT TSSUED AFTER ANULL CASEsee, 
TF (CIPDELw ,GT, 120) CALL ER(104,3,0) 
69 TO 30 
5011 SCT,JIS4aNULL 
611 TO 60 


301 CALL ADVSCA 
I® (IPDEL4.GT.100) Gi) TY S010 
TEC TENMELW.EQ.99) GN TN 3009 
IFCTPNEL 4, ED, TePP4R) GO TD 3011 
IFC TEDELA,.NE.ITAST) CALL E96105,0,9) 
NOT, JI EeNCT,J) 1 
IF CPCONTW,EQ,ANULL) CALL ERC 106,+0) 
62 79 362 


| 
| 
| 
| 


DELIMITFS TS A SLASH, SUBNODE ENTRY POINT EXPECTED 


SURNOINE ENTRY SHOULD NCCUR ONLY AT MAIN NODE LEVEL 


VOAIINAD 


TOTP C) WNE, 3) GO 70. 7066 

7050 Tote] 
FES GT, JMAXY CALL ER (7 .6e0,PCINTW) 
TPO(T, J)s0 
NOT es JISUNGORNUYRER(PCOINTH) 

Cc 2? TRIGGER ENTRY POINT FLAG FOR NODE SURROUTINE?? 
CALL ADVSCA 
TFE(CIPOELw,NE,ISLASH) CALL FR(1908,,9) 

C 7? ERROR IN SUBPNIDE CFFINITIIN,, DETECTED JN SCAN PAHASE?? 
TE (CPCONTS*,EQ,4NULL) GO TD 701 

702 S(IeJ)SPCONTA 
69 TN 1} 

791 SCT»J)SANULL_ a 

- ¢ AROVE DONE IN CASE ANVSCA GOES TI NODEND?? 

CALL ADVSCA 

TFC TPDEL4,.NE.TAST) 69 TO 7055 

NCIT,J) eeNn(I,J) m1 


G3 TT. V02 
7055 IFCTPDELW,NE,I9OL) GO TO 7956 
Ga “Tt 4 
7O0S6 IFCIPDEL~,"E,ISLASH) FALL ER(109,,9) 
€ GALL ER ERRMP IN SUBNODE DEF INITION?? 


GA TO 7050 
7066 CONTINUE 
TERSws} 
T=1 
CALL £2(¢107,2,1) 
60 TY 7080 
Cae 
Coe DELIMITER TS A RIGHT PARENTHESIS 
Cen THIS INDICATES THE FND OF A STACK SO THE CURRENT STACK IS WRITTEN 
Ce, WUT S¥ A CALL TO wRISTA AND THE PREVIDUS STACK IS REACTIVATED, 


60 CONTINUE 
IFCI.E%.1) GO TO 6066 
C CHECK FR EXCESS OF nPARS JVER LAPARS,,,., 
Cau wRISTA 
TsI~} 
JeIsc]) 
Coe A RIGHT PARENTHESTS SHOULD RE FILL IAED BY A DELIMITER IMMEDIATELY 
6059 JTF CPCONTWANE,ZANULL) CALL ERT111,9,9) 
G1 TO 1 
6064 CONTINUE 
ITERSwst 
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tsi 
CALL ER(107,101) 
GO FO: 4 


Ce. OFELIMITER IS A (PE COMBINATION INDICATING BEGINNING OF AN 
Cee ARGUMENT STRING, STORE POINTER T9 BEGINNING OF STRING IN ARRAY IPP, 
Cy, THEN ADVANCE SCAN PAST ARGUMENT STRING IN HOLD TABLE, 


eo CONTINUE 
IPP (I,J) 2ISCAN 
ag94 Cate aDVSCA 
IF (IPDELW EQ, TRPAR) GO TD 6050 
TF CIPDELwW.GT,109) GO TO 201 
TFCIPDELs EG, IDOL) GN TO 80 
TFCTPMELY EQ, 10:44) GD TN 899} 
TF (ITPDELW.EG,TPER) GN TO 8991 
TF CIPDELW.EG,IAST) GN TD) 8991 
IF (IPOELW ,EQ, IMINUS) GN TO 8993 
CALL ER €105,1,0) 
G) TO R994 
eo1 TPNEL WESIPHELWe800 
697 To 10 
c ARINVE GNES TO LPAR,,, 
Cee DELIMITER TS A SPS COMRINATIDN INDICATING BEGINNING OF AN 
Coe SR2GIIMENT STRING AFTER A PS STRING, STORE POINTER TO BEGINNING OF 
Cee STRING‘ IN ARRAY TPP, STNCE THIS IS AFTER A PS STRING, A NEW STACK 
Cee HAS BREEN STARTED AND THESE ARGUMENTS ARE ASSOCIATED WITH THE VERB 
Cee IN THE PREVIOUS STACK, THAT TS, THE VERB WHOSE 9S STRINGS ARE 
Coe SEING PROCESSED, 


ug CONTINUE 
KJsJS(Ie1) 
TPP( Tel eKJISISCAN 
99] C4LL ADVSCA 
IF (IPDELW EQ, TRPAR) GO TD 60 
€ ARJVE GOOFS TO RPAR IN CONDITION 
IF CIPDEL4,.GT.109) 69 TO 30 
C BBOAVE GOES TN OOLSPLIT ON CONDITION 
IF (IPDELwW,EQ,IC IMMA) GO TD 991 
TF (IPDELw,EG,TPER 3 GI TD 991 
IF (IPDELw,E9, LAST ) GO TD 994 
TF (IPDELw EG, IMINUS) 69 TD 991 
CALL ERC19Sele Oe ISCAN) 
60 Th 994 
ABO CALL ER(110009) 
C 7? MHFL4&R SIGN RIT, .AOVSCA SHOULD HACE SENSED NIDEND FIRST ceee?? 
60 Th 3 
EN 


acne 


THE BDM CORPORATION 


D. SUBROUTINE MDSCAN 


This routine initiates the model description scan at the first node 
and controls Phase | of the node scan. When the end of the node is encountered, 
routine NODEND is called which begins Phase i| of the node scan. Entry 
point NEXNOD continues the scan of the next node of the mode} description 
at Phase |. When the last node has been processed, control is transferred 
to the routine MODEL which controls the fourth step in the assembly process, 
mode} program creation. 

The general procedure of MDSCAN is to enter the node description into 
the HOLD table with a call to EXPA and then scan the node description, 
making lists of verbs used and expanding nonsimple verbs in the HOLD table. 
The list of nodes in a model description is kept in array NODNAM. The list 
of verbs encountered in the current node is kept in array VRBNOD and is 
used to calculate the data requirements for the node in routine NODFMT. The 
list of simple verbs encountered in the entire model description is kept in 
array KSIMVB. The positional data for these verbs in the library is kept 
in array KSIMVB. Additional verbs and routines are added to array SIMVB by 
the call to routine LIBCR. When a nonsimple verb is encountered, it js 

| expanded by calls to LIBTYP and EXPA. A search is made of the verbs referenced 
in a nonsimple verb to prevent recursive definition where the nonsimple verb 
references itself. The list used for this check is kept in array VREP. 

The scan through the HOLD table is accomplished by successive calls to 
ADVSCA which returns a delimiter code and the succeeding content word. This 
scan performs very little syntax error checking, the majority of it being 
performed in HTSCAN in Phase I]. 
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SuMPOUTINGE MOSCAN 
ae 
Coe THTS ROUTINE INITIATES THE MIDEL DESCRIPTIIN SCAN AT THE FIRST NODE 
Cas 
Coe ENTHY PXINT NEXNOD CONTINUES THE SCAN OF THE NEXT NODE IN THE 
Cee “WEL DESCRIPTION 


Ces 

Cee EACH NUDE TS HANDLED IN TwO PHASES, : : 
a PHASE 1 JS CINTROLLED SY MOSCAN AND SETS UP THE HOLD TABLE 

Cia THROUGH CALLS TO ExPa, 

ee PHASE 2 ITS CINTROILLEND BY HTISCAN WHICH SCANS TRE HOLD TABLE 

es AND CONSTRUCTS THE REQUIRED LINKAGE ROUTINES, 

Ee 


Can AMEN TRE LAST NONE H&S BEEN PROCESSED, CONTROL IS TRANSFERED TO 
Coe THE ROUTINE MODEL wHICH CONTROLS THE SELECTION DF MODULES FRIM 

Cee INTENNOL FILES, THE SELECTION AND OIMENSTONING JF COMMON DECKS, 
c BND THE CONSTRUCTION OF & COMPLETE “MJDEL TAPE, 


Gee 
Gana 
COMMON /GCHARPC/ NOEL ¢NFND¢STRING(1) p BUFF (BO) sLUNIT/ INC ICDs L OUT 
1 ,ILNBUF(CBOI,LOCATE(10),COSCAN,NEWCRD,NCHAR 
COMMON SVLIRS ITV,VI(600)+ TSI (690) pNPSLIT(600) sNvMAX 
COMAOIN SSIMVE 4 SIMVK( UDO), VREP (GOO) ,TSIMAKSIYVACUO0),INOVR, 
! INDLIRBeNSV4AK, VRBNID (300) pNVNID,NVNMAX 
CUMMON /SWITCH/S TKEL LISFELeKEYFMTSLSTYID,TSTOS&,MUPDAT 
COMMON /COMDEKS COMNAM( 60), INDNSMSNAMMAX, 
1 COMOTIM(BO,2),INDOI 4s MAXOIM, 
2 NIONAM(1ON),IVONID,NOIOMAX, 
z INITCN(60),L4STCOC60) 
CUMMON /ODDIT #7 TRET 
COMMON ZADVSCA/S TSCAN,INEND + TPDEL 4, PCONTH, Ive 
COMMON /OTIM / KC,OTIM 
COMMON JER / ICDH,ANMY 
COMMON ZEXPA / INOL,ICOMMA,LPAR, TEQUAL,IRPAR,JPER,JAST,ISLASH, 
1 IPLUS,IMINUS 
COMMON JN 7 *NDDE 
COMMON SMATIN 7 AVES TEFREER, TENDS, ANWND,ONULL 
COMMUN HOL2¢2000) 
FYITVALENCE CIROLOCLI,AOOC1)) 
DIMENSION IMOLOCL) 
NIMENSTOS ICaPPrcicd) 
NIMENSTOP RAUF H(RO) 
Nata AMSK = /1077777777775SSSS5SS555/ 
FYUTLVALESCE (ANAND, NEWNOD) 
Cee 
Coe INITISTE NOOR SCAN, SET VARTASLES FOR CALL TO GEHAR 
Coc 
LUNTT 3 5 


COLL GCHAR 
Te (NFND NE, 9) GO TN 68 
CHEER FOM INIT OL COMMENT CARD 
TF (NMEL eNEe TPLUS) CALL ERC1.0,0,4NWND) 
IvC |@ ane 
HO Ti ol 
Cee & NEw NODE NAME TS ASSUMED 
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eee 


44 &reeD s&s STRING (1) 
[TF CNMEL gMEe TPFR) CALL ESC1 4.0.02 ANWND) 
Coe FRE FIRST DELIMITES SOFTER & NODE NAME WAS NDT & PERTOO 
6S CONTINUE 
Coe ENTER NODF NAME IN LIST 
£0 70 K2},INDNOD 
IF (NEWNOD ,EQ, “iINNNAaM(K)) GD TO 72 
70 CONTINVE 
INONOO s INDNOD ¢ 4 
IF CINONGD ,GT, NOOMAX) GO TO 74 
NONDNAM(TNONOD) & NEANTD 


gery Ft Fa 
71 CALL FRPC3I,0-1,ANWND) 
69 TO Tu 


72 CALL ERS 32,09, 1,ANaND) 
Cee CLEAR LIST OF VERBS ENCOUNTERED IN CURRENT NOOE 
74 CALL CLEAR FVRBANOD,NVNMAX) 
NVNOO = 0 
TSCANS4 
TveRso 
If aPso 
Cee PLACE UNE NODE INTO HOLNC ) 
KNODESKNODE + |} 
CALL FxRPAD) 
IcDxsIC9 
INCHSINE 
59 7S K21,80 
TS RiP Ce lSsRurFr(K) 
Cee BEGI™ PROCESSING NODE DESCRIPTIIN 
BO COMTINVE 


P Cou PLACE NEXT VERB TN AyR 
: _ 85 CALL &Ddvsca 
T14929 
BO TF CTPDELW,E9,99 OR, TPNELW,E9,899) GD TN 165 


90 TFC IPOELW.EG. FAST } GO TO 155 
TF( [TPNELW.ES.ISLASH)GO TN 160 
IFC TPDELN.EG.IOOL) CALL NODEND 
Cg, MASK OUT RIGHTMOST FIVE CHARACTERS 
95 AvREPCINTW, AND, AMSK 
TEC AVB,ES,ANULL) GO TO 85 
Coe CHECK IF ONLY STRUCTURE EXPANSION 
O97? TECIKFL.EG,1) GO TO 90 


Cae 
eee 7 , 
AND TO LIST OF ALL VERRS IN THIS NODE fvRANOD) 
Cars NOT PREVIOUSLY LISTE, 
Coe 


99 OR KS1,NVNOD 
TF FAVA ED, VRANOID(K)) GD TO 99 

QA CONTINGJE 
NVNSTO Ss NVNOD # 1 
IF (NVNDD eGls NYVNMOX) CALL FR (9,0,9,4AVAR) 
VERNONO(NVNCD) = AVA 

99 CONTINUE 

Coe IS VERR STNPLE 08 NONCSTMPLE 

CALL LISTYO(ISF) 
TF CISF .EG. 0) 6D TH 310 
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IF 


IF CISF GFE. 2) CALL ER(16.0,1,4Vv4) 


Cc 
Cy. vEPR TS STMPLE,STORE IN ARRAY SIT4VH TF NOT ALREADY THERE Sige ead 
Cae 
IFCISIM,EO.0) GO TN 105 
99 190 K21,ISI™ 
TF CAVE ,EQ.STMVA(K)) GT TD 80 
NS fa kN SE ee ES ee ee oe A 
105 TSIMSISIM+1 
IF CISIM,GTSNSVMAX) CALL ER(7.9,0,4V8) 
SIMVAECISI4) SAVE 
KSIMVBCTSIM)SINOVB + 4O96*INOLIB 
Cae 
oo CHECK CROSS REFERENCE FILE TD INSURE THAY ALL REFERENCED MODULES pete 
Coe ARE INELUDED IN THE LIST SIMVA 
Lee 


C4LL LIRCR (CAVE) 

GQ TO 80 
Ce. VERA TS NON@SIMPLE 
Con EXPA ALTERS RIGHTMOST CHARACTER QF PCONTw IF VERB NAME wAS 
ae FMREDDEND wITRIN THE NeS VERB DEFINITION, A NeS VERB CANNOT 
G2 REFERENCE ITSELF, THEREFORE ALL VERB NAMES IN A NeS VERB 
Ces MEFINTTIUN MUST HE CHECKED 4SGAINST NeS VERB NAME FOUR POSSIBLE 
e 3 RECURSIVE DEFINITIONS 


119 CONTINUE 
TECIVR,EQ,9) GI TO 14S 
JF CAVA,NE,PCUNTw) Gf) TU 140 
115 CONTINUE 
IFC TCAP,EO.0) GO TO 135 
ICAPLZICAPPT(ICAP) 
IFCIVR,LT,ICAPL) Gi TN 130 
129 CONTINUE 
Geo IGAPL TS TOP LIMIT GF SEAN FOR RECURSIVE OFF INTITION 
Cow Te IS LIMIT OF VREP STACK 
Cae 


V) 125 KSSICAPL,IvR 
IF CAVB,EG.VREP(K5)) CALL ER(2,.0,%,AVB) 

125 CONTINUE 

GO TO 145 
130 CHNTINUE 

ICAPSTCAF @ | 

Gi Fo $15 
135 CONTINUE 

TOAPL =! 

GO TO 12% 


Cee LIVIT SEARCH OF VERB NAMES TI AVOID CONFUSING VERBS IN PARAMETER 
Coe SLOTS wITH THOSE IN REGULAR FLOW PATH, 


140 CONTINUE 
IvRsIvy + } 
TECTVE.GT,100) CALL FERCA.5,9, AVA) 
VRFPCTVR)SaVe 
TCHPSTCAY + |j 
TcaPer({CaP)stve 
6) Tir 990 


145 


IvRsSIVeP + | 
IFCTVR,G6T2199) CALL ERC2e67 07 4VR) 
VRFPCTYVR) SAVES 


Coe EXPAND VERR 


150 


Cee 


CONTINUE 

CALL TARLE 

C4tbL ExPA(1) 

TF CT169,NE,.1) GO TO 80 

C&LL ADVSCA 

T15950 

69 T) 95 

C4LL ANvSca 

Tisn20 

TF CTODELw,EQ,TPER) GA TN AS 

69 TO 89 

CALL ANVSCA 

116921 

6% TO 95 

CeLL ADVSCA 

Tpao=so 
TF CTPDEL MEO, IRPAG IR, TOMEL*,GT,100) GO TO 99 
GM TU J6s 


Cee THIS ENTRY POINT TS FUR RETURN FROM HTSCAN SUBROUTINE 


ENTRY NEXNUE 


Cee TF LAST VIDE 4&S HEEN PRIICESSED, TRAVSFER CONTRIL TO «#MDDEL* 


IF (IENDOS .EQG. 1) CALL MODEL 

Loutse 

LUNITSS 

ICOSICDH 

INCSINCH 

ny 170 Ksy,80 
BUFF (kK )SRUFH(K) 

“BITE (6,2170) IC.,B8uFF 

FURMAT(1H1,I14,24,,,89A1) 

GA. Tr) 6S 

ie 


THE BUM CORPORATION 


Es SUBROUTINE NODEND 


This routine is called by routine ADVSCA when the end of a node is 
encountered in the HOLD table. If Phase | (IFL = 1) of the node scan is 
in progress, this signals the end of Phase | and IFL is set to 2 and the 
routine HTSCAN is called to initiate Phase II. If Phase I! is in progress 
when NODEND is called, this signals the end of the node scan and the node 
subroutine is written out from the first level stack by a call to routine 
WRISTA. Routine NODFMT is then called if input data requirements are 
requested. The variable IENDS is set to 1 by routine EXPA when the final 
node in the model description is loaded in the HOLD table. Therefore at 
the end of routine NODEND, the variable IENDS is checked and routine MODEL 
is called if its value is 1. If its value is not equal to 1, the entry 
point NEXNOD of routine MDSCAN is called which initiates Phase | of the 


scan of the next node in the model description. 


SUeROLT TNE NODEND 


COMMON /TERCT/ TERCT 
COMMON S/T / I,J 
COMMON JhOMAS/ TEL 


NATTA TEL/SIZ 
COMMON /ADDITZ IPET 

CAMMON £ZODVSECAS TSCAN,INEND, LPDELH,PCONTW, IVR 

COMMON ZER/S ICDYH,ANM1 

COMMON SEXPAZS TNOL,TCOMMA,LPAR,TEQUAL,TRPAR,JTPER,TAST,ISL ASH, IPL 
1S,IM¥INUS 

COMMON /GCHERC/S IDELONFND,STRING( 1), BUFF (BO),LUNITA,INC-ICD-LOIUT 

1 -ILDRUF 7BQO)-LOICATECIO),COSCAN,NEWXCRD,NCHAR 

CUMMIN S/VLIE4  T¥e.VT(600)2I18S1(600) -NPSLOT(600),NVMAX 

CIMMON /ZMAIN/S AVS, TEREEM, TENDS, ANAND, ANULL 

COMMON SSATTCHS IXFL,LTIAFLAKEYEMT,LSTYID,TSTOSRAMUPDAT 

COMMON /MHOLDZ MAXHLOD 

COMMON HOLD (1) 

HIMENSTON THO EI) 

EQUIVALENCE (HOLD(1),IHOLD(1)) 

D&TA [SAVER SOS 

Nara ICHECK 4160900007 


Cee THIS ROUTINE TS CALLED FROM ANVSCA WHEN THE END OF THE NODE REING 
Coe PROCESSED IS ENCOUNTERED, THIS OCCURS TWICE FOR EACH NODE == 

Cow DURING PHASE T CIFLS1) WHEN THE VOQDE IS BEING EXPANDED AND 

Ca, DYUPING PHASE ITI CIFLS2) wRKEN CODE IS BEING GENERATED FOR LINKAGE 
Coe SOUTINES, 


G7 TO (tee) ,TFL 
Cae PHASE T, CALL HTSCAN TH START PHASE TI PROCESSING 
Cee ND RETURN IS EXPECTEP FROM KTSCAN, 
1 IFLEe 

Cali HTSCAN 


Co. 

Cee PHASE TI, CHECK THAT STACK LEVEL 2 PS BEING PROEESSED,, 
(Sie 

2 TELS! 


11 LA Nis yh CLO a 
Cc AT END MF NODE FINAL wRIST4 “MUST BE FIRED TO CLEAR OJUT NODE CODE 
CALL aRTSTA 
67 CONTINUE 
Coe “SITE QUT DATA FIRYMATS FOR THIS NONE ON FILE 9 
TP CKEVYPMT VEO, {9 Cale NADEMT 


Cee IF ERR1RES IN THIS NOME, PRINT WIT THE CINTENTS JE THE HOLOTARLE 


PP CUSAVER wee TERCT) G9 10) 20 
IS4vFR = JERCT 
Asa! 
"RITE (62190) 
100 FIURMET(1HO,Sk,LISHOLOTARLE 4/) 
10 CONTINUE 
K SK 6 @ 
“<P = kK + | 
Coe CHECK FIR VERFLO® OF HOLDTABLE 
LF CK sGTe. WAXWLO WOR, K.GESIPREES) GOD 70 15 
Cee CHECK FIP CONTENT wR OR INTEGER CIDE 
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ey 


TORSat = | 
TE CIMDLOCK) gL T.9 JANN, THILD(K) GT OICMECK , 2, 
* THOLOCK) LT, TCHECK ,AND, ITHILD(K).GT.0) IPRSwT = 3 
TF (THOLDOKP) LTO ZAND, IHDLN(KP) GT, eICHECK UR, 
* THILOCKP) LT ICHECK , AND, IHOLD(KP),GT.0) TPRSWTSITPRSwTe] 
eo SELECT PROPER PRINT FORMAT 
57 TO €11612513-14), TPRSwT 
LL “RITE COp LIL) KeHTLO(K) pKP PHILO (KP) 
111 FIRMAT(9X,T4, 3H, ,,-A1N,SKo14, 3H,,,7410) 
12 “RITE (6,112) KpHOLD CK) KP, IHILD (KP) 
112 FORMATE LX, TS SH gp ALD re SX eT Us SHe 45715) 
BO Th 26 
% WRITE (521135) Ke THOLO(K) KP/HILD(KP) 
115 FURMAT(1X + 14s SH a eae TS ep LOX eT 4s SH ayer A100) 
GA TN £6 
14 *RITE (5,114) Ke THOLN(K),KP,IHILO (KP) 
114 FORMATCUX, Toe Sree eo LSe LOX 14, 3444015) 
Ght TO -£06 
15 “RITE(Co,115) 
115 FURMAT(//1X,24UH,,, END TF HOLDTASLE wee ) = = 
CALL MODEL IF THIS [S FINAL NODE IN MODEL DESCRIPTION OR 
CALL NEXNODE ENTRY POINT IN MOSCAN TJ) PROCESS NEXT NODE, 
RETURN TS NOT EXPECTED FROM EITHER RIUTINE, 


29 TF CIENDS ,€9. 1) CALL MODEL 
CALL NEXNOOD 
fA CONTINUE 
Catt ERC107,3,1) 
2° TO 7 
aaa) 
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THE BDM CORPORATION 


Fe SUBROUTINE NODFMT 


This routine selects the format and data requirements for each node 
from file 4 and writes them out with headings on file 9 for later printing 
by routine MODFMT. Routine NODFMT is called at the end of each node by 
routine NODEND and uses the list of modules in array VRBNOD to determine 
which modules to retrieve the data requirements from. This routine is also 
called from the main program AUTASM. This first call to NODFMT initializes 
file 9 with a header page. !f the standard subroutine package is selected, 
the routine prints out al! the data requirements from the module DATAN but 
none from any other routine in the standard package. 

A node header line with the node name is printed out first. A module 
name is printed out prior to the contents of all C/F cards in the module. 
Only columns 5-72 of each C/F card are used. If a module listed in array 
VRBNOD contains no C/F cards, the module name is not printed. If a node 


contains no modules with C/F cards, the node header line is not printed. 


Cee 
c 


-eoe 


Gave 
Coe 
tive 
Ces 


suseau 


TM] § Roo 
FROM FIL 
PRINTING 
LIST MF 


COMMUN 

{ 
COMMUN 
CUMMON 

{ 
POMMAN 
COMMON 
COMMON 

1 

? 

$ 
DIMENS 
EQUIVA 
DATA 
Sata 
NATA 
MATA 
TATA 
“PAGE 
INDEX 
LINE 

NONE 


INITIAL 


TF CIN 
INTTL 
wRITE HE 
aARTTF 


Pang FaMAT 


Coe 


Ges 


q 
1 


2 


{ 
CHeECK JE 
IF ¢Is 
NODE 
VRRAANOD 
NVNOD 


START PR 
) SOPHNR 
GET NEXT 
a INOFY 
TF CIN 
Vea amM 


FIND MID 


Q NOTLST 


9 REBN 
0 FR“ aTt 


TINE NODEMT 


TINE SELECTS THE FIRMAT AND DATA REQUIREMENTS FOR EACH NODE 
—E 4 AND WRITES THEM JUT WITH HEADINGS ON FILE 9 FOR LATER 

» NOOFMT TS CALLED AT THE END JF EACH NINE AND USES THE 
MODULES IN ARRAY ' VRBNON, 


AGCHARC/ NDELPNFND¢ STRING (1) - BUFF (RO) »>LUNIT, ING eo TCOeL OUT 
POLOBUF (80),LICATE(10),-COSCAN, NEWCRO,NCHAR 
JMAIN / AVB,ITFREEH, LENDS, ANWND,ANULL 
/SIMVB / SIMV8(400),VREP(400),ISIM,KSIYVB(400),INOVA, 
INDLIB,NSV4AX,VRBNID( 300) ,NVNIDN,NVNMAX 
SWITCH IKFLAZLIBEL -KEYFMT,LSTMID,ISTOSR,MUPDAT 
SKN 4 «NODE 
JCOMDEK/Z COMNAM(69),ITNDNAM,NAMMAYX, 
COMNIM( 80,2), INDDIM»MAXDIM, 
NODNAM(100),TNONOD,NOOMAX, 
INTTCN(60),L4STCO (60) 
ION SUFH(15) 
LENCE CIVRRNM,VRANAM), CITSTNM,TSTNAM) 
INITL 10/ 
MODEL /SHMODELZ 
ADATAN JSRDATAN/S 


17 J1H7 / 
LS JAS / 
= 0 
ae) 
a0 


NOONAMCKNODE) 
Ze FILE 9 


IVE wEV,s 1) GO TO 10 
= 1 
SNER PAGE 
(9,2000) 
CLALSSSSSSSSSSSSIIISIIIISAS SI 
UTX, S6Heen MODEL DATA REQUIREMENTS eee) 
STANDARD SURROUTINE PACKAGE IS TO BE USED 


TOSR ,EQD, 1) RETURN 

= MODEL 

(1) = ADATAN 

a J 

QCESSING ALL MONULES IN VR8NID FOR NODE 


s 0 
MNOULE NAME 

= INDEX # | 

NF x cage NVNON ) RETURN 
S VRANNOCINDEX) 


JLE wTTH NAME VRANAM FN DATA FURMATS FILE a 
0 

{ 

0 

(4,1030) IKEY,/TSTNAM, TYPE 

(41,46,46) 
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NOTLST = NOTLST + 1 
IF (EOF,4) 40,50 
C.. END OF FILE, “ODULE NOT FOUND 
GO KEWIND @ 
IF CNOTLST ,tE, 1) GO TO 30 
US «RITE (6,2040) VRANAM 
2049 FORMAT (14% MODULE NAMED 446,314 NIT FOUND, DATA FORMATS FILE 4 ) 
GU TO 20 
Cee CHECK “MODULE NAME 
SO IF CIKEY NE. F9) GO TO 30 
TF (TVRRNM @ TTSTN™) 60580,70 
Cae VRANAM UN PREVIOUS PORTION OF FILE 
69 REWIND J 
TF CIPIRST NE, 1) GO TO 45 
IFIRST = 0 
GQ TO 30 
Coe VRANAM FORWARD ON FILE, SKIP THIS MODULE 
70 RESD (4,10350) IKEY 
TE €CPMKEY CEQ. 27) Gh TH 30 
6) TO 79 
Cee VRRNAM FIUND, READ CONTENT FRM FILE 4 
AN READ (44,1080) IKEY,(RUFH(T),121,135) 
TORO FORMAT(AY,44,1146,42) 
TF CLKEY NEw I7) GO TO 90 
END OF CONTENT 
6G TQ 20 


PRINT NONE HEANER JTF NECESSARY 


90 TF (NOOHDR EG, 1) GO TN 92 


NODHDR s |{ 
NPAGE = NPAGE + 1 
sRITE (9,2010) “IME,NPAGE 

2090 FORMAT CLH1L,SOK,244DATA SEQUTREMENTS, NODE ,A6,40X,4HPAGE,12,///) 

Coe PRINT MODULE HEADER 
92 JF CNAMHDR LEG, 1) GN TO 95 

aARITF (9,2020) VRANA™M 

2020 FURMAT (1HO,10%,7HMODULE 246 /1HO ) 
NAMADR = | 
LINE = LINE ¢ 4 

Cee “RITE COLUMNS S © 72 ONTU FILE 9 

95 swITE (9,2095) (RUFH(T),T52,1 3) 

2595 FORMAT (29K, 1246) 
LINE S LINE ¢ 1 
ITF CLINE , LE. 50) GN TO 80 
LINE = 0 
NPLGE = NPAGE «+ 1 
ARITE (9,2010) NONE, NPAGE 
69 TO @O 
END 
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G. SUBROUTINE PSTRIN(K) 


This routine sets up a table of arguments for a FORTRAN subroutine 
CALL of a verb routine. The argument K indicates which verb in the current 
level stack to build the table of arguments for. The array IPP(I,K) points 
to the beginning of the argument string in the HOLD table for the verb. 
The array WR contains the characters for the argument string with the content 
words in the odd positions and the delimiter characters in the event posi- 
tion. The delimiter characters are period, comma, minus, and asterisk. An 
asterisk is changed to a 5H for the hollerith argument. The final character 
in the table is always a right parenthesis. The beginning left parenthesis 
is assumed and therefore is not entered in the table. The variable KPWRIT 
points to the position of the right parenthesis in the table. As an example, 
for the call to a verb 

CALL VVERB (1,3.1, *ANAME) the array WR would contain 


WR(1) = 1 WR(6) = , 
WR(2) = , WR(7) = blank 
WR(3) = 3 WR(8) = * 
WR(4) =. WR(9) = ANAME 
WR(5) = 1 WR(10) = ) 


and the value of KPWRIT would be 6. The delimiter codes in the HOLD table 
are translated to delimiter characters through the array DEL. 

This routine is called by routine WRISTA prior to the call of routine 
PACK] which creates the call to the verb and uses the table of arguments in 
WR. 
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a a at 


SUARNUTT YE PSTRIN EK) 
Cars 
Coe THIS VIUTINE SETS UP A TABLE OF ARGUMENTS FOR A FORTRAN SUBROUTINE 
Coe COLL TIF & VERR RVYTINE 
(a 
I"™™4ON HOLDCH) 
MIN swRTS APARTT, wR (GO) ,KPMAK 
IMMUN SIZ I 
mMON ZSCAN/S §$(20,509-TPFP(20,50),N020,50),T9 (20) 258029) 
! eTVAx, JMAX 
COMMEN /ADDITZ IRET 
CaY4nN ZANVSCAY TSCAN,INEND, TPDELW,PCONTW,IVR 
FOMMON JERS [TCOH,ANMY 
COMMON ZEXPAS IDOL ICOMMApLPARPTEGUAL, TRPAR,TOER, TAST,ISLASH, JPL 
tS, I¥¢Inus 
COMMON /GOHAROC/S SDEL,NEND,STRING(1)e9UFF (B8O),LUNIT,INC,ICO,LDUT 
1 POLORUE CBO)-LICATE (19) -COSCAN,NE*CRD,NCHAR 
COMMAN S/VLIB/S TV,VI6600),181 (600) »NPSLIT (600) »NVMAX 
CAMMnN /MAIN/ SVB, ITFREEH, TENDS, ONAND,ANULL 
EQITWALENCE = CIHILDC1)-4OLDE1)) 
DIMENSION JHOLDC1) 
yaTa AMSK AITITIFIFTITISSS5SS5595555B/ 
YIMENSTON DEL (10) 
ATA NDELCT, CDEL CH KEL eLOVSIA A LHBr LM rp pL ( rf adsolh) plage ttre i/o} 
Loe, tre/ 
INTEGER REAR 
FQUIVALENCE (RPAR,TRPAR) 
NATA RUENK 71H / 
MATA ASH S24S5H/ 
Cc SET [SCAN TH) FURST PevALUE FIR THIS VERB REFERENCE 
[SCANSITPR(T,«) 
WRC1) S_HOLOCTISC4N} .AND, AMS 
TF cwR(f) ,E0, ANULL) wREI) & BLNK 
QJILO T48LE FOR wTRITNG OUT DRIPER FORTRAN SURBRIUTINE CALL PeRare? 
PARAMETERS scene 
I« sf 
Coe ADVANCE SCAN THROUGH PARAMETER VALUES 
1 ISC4N 5 JSCAN ¢ 2 
TE CCTSCAN|L) EG, TNENO) CALL ER(113,9,1,ISC4N) 
[PvELw~ & THOLOCTSCAaN=]) 
PCINTw s&s HOLODCTSCAN) 
POCONTA & PCONTW AND, AMSK 
Cee CHECK FOUR EXD UF PARAMETER VALUES STRING 
IF CIPOEL+ ED ROAR OR TPOEL~.GT.100) GO TD 69 
TK sts? 
TF CIK .GT, KPMOxK) CALL ERC113,5,0,1S9CAN) 
IF (PCONTW EQ, AN ILL) PLINTASRUNK 
wR( IK) SPCONTH 
AQ(TKe{)ENELCIFDEL A) 
CocCHECK FUR HULLERITH ARGUMENT AND ENTER 54 IN PLACE 1F ASTERISK 
CeeDELIVMITES PRECEDING NAME 
TF (CIPDELw NE, L487) GO TI I 
wQ2(TKel) = ASH 
Coe INSURE THAT HOLLER TT B8GUMENT WINT SPAN Tw LINES IN THE CALL 
TF (“CO(IMe{,12) ,GT, 6) GO TO ft 
Coo “DVE HOLLERITH Sm DELIMITER TO NEXT LINE 
Ik 3 TK @ @ 


an 
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IF (IK .GT,. SPMAX) CALL ERO113.5,0,1SCAN) 
ARC TK) = PCONTA 

aQ(T<ej) = ASH 

aR(TKe2) 3 BLNK 

sR(TK=3) = ALNK 

6D TO 4 

KPAWRTTsT Kel 

wR(KPARTTIS DEL CTRPAR) 

RETURN 

END 
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CHAPTER IV 
OUTPUT DATA POSTPROCESSOR PROGRAM CHANGES 


INTRODUCTION 


The MAWLOGS Output Data Postprocessor System (ODPS) was developed to 
provide a post-model run analysis capability. This system operates on a 
transaction file, deveroned by a simulation model which contains statistical] 
data on events and values occurring during the model run. Various ODPS 
programs can then be used to aggregate, analyze, and graph the results of 
the simulation. The use of the ODPS programs is described in the User's 
Manual” and a technical description is given in the Programmer's Guide? 

The ODPS system has been extended to handle the method in which statistics 
are collected in continuous flow models. In addition, the graphical output 
now provides a reference to the tabular reports that back-up each variable 
on a graph. These extensions have affected seven programs, namely AGATE, 
TRAFAN, PGRAPH, ENDB, PRNTSO, REPTTL, and GRAPH. Changes to each of these 
programs are described and program listings are provided in this chapter. 

Two new programs have been provided to handle model transaction files, called 
MTTF2 and CHTFH. MTTF2 is used to merge two transaction files which are 
produced by two different models or slices of the same model. CHTFH is used 
to change the transaction file header identification table. Both of these 
new programs are documented in this chapter. 

The statistics collection in continuous flow models is performed at 
regular, pre-specified intervals on al] variables in the system. In contrast, 
the discrete-event modules only’collect statistics when a change occurs in 
a variable of interest. The original ODPS programs assumed that there was 
a value change between two TMST type statistic entries at successive times 


on the transaction file and used this information in calculating these 


>Fuelling, C. P., Models of the U.S. Army Worldwide Logistics System 
(MAWLOGS), Volume IV, Programmer's Guide, Part 3 - Technical Description of 
the ODPS Programs, General Research Corporation, OAD-CR-41, June 1974. 
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! statistics. Since this assumption was not true for continuous flow model 

| statistics, alterations had to be made in the way values were applied 

| across time periods. These changes were made in the two main programs that 
read transaction files, AGATE and TRAFAN. 

The output of the GRAPH package in the ODPS system has been improved 
in two ways. An example of a graph produced by the ODPS is shown in Figure 
IV-1. Note that each cross variable includes the number of the tabular 
report from which the graph points are derived. The last entry in each 
report, which contains the summary of all earlier entries, has been sup- 
pressed in the graph. In the earlier version of this program, this cumu- 
lative value caused the resolution on the vertical axis to be compressed 


just to handle that point. 


B. MTTF2 PROGRAM 


vs Purpose 


This program merges two MAWLOGS model transaction files which 
have been sorted into ascending order on words one and two or descending 
order on word two. This program differs from MTTF in that the files need 
not be from a save run anda restart run of the same mode]. In MTTF, the 
name tables at the head of the files are assumed to be the same, or the 
first one a subset of the second, so that the indices on the transaction 
records are unique. MTTF2 does not make that assumption and accordingly 
offsets the indices of the second transaction file to maintain their unique- 
ness. MTTF2 is used when merging transaction files from different slices 
of the same model or from different models. In this case, one file would 
have transactions indexed 1 through n and the other file would be indexed 
1 through m, but the same indices would not relate to the same variables. 
The output file from MTTF2 would have n+m transaction indices that would 
uniquely identify all the records on the file. A value to increment the 


node numbers on the second file can also be used to differentiate between 


the transactions from the two files. 
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€. Use 

The MTTF2 program reads from two files, TAPE] and TAPE2, and out- 
puts the merged files on file TAPE3. The program reads two input data cards 
with formats shown in Table IV-1. The node code offset is used to alter 
the node numbers in the transaction name table of the second file. Since 
the node numbers may be the same for the two files, this offsetting of the 
node numbers in the transaction names guarantees uniqueness among all the 
names. The second input card is used to supply a new name to the merged 
file which will be used in subsequent ODPS reports and graphs. If the name 
is blank on the card, the name associated with the first file will be used. 

The output tape from an MTTF2 run must be sorted before it is 
used since the records from the two transaction files are not sorted by 
MTTF2 but merely placed consecutively after the merged name table records. 
If the same model node created statistics on both files, then the sorted 
file should be run through AGATE to aggregate the records from that node to 


a single transaction index and properly handle TMST type statistic records. 


Iv-4 
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TABLE IV-1. FORMAT OF MTTF2 CARDS 


CARD 
COLUMN FORMAT DESCRIPTION 


ENTER “'MTTF2" 

BLANK 

NODE CODE OFFSET VALUE FOR TAPE2 
TRANSACTION NAMES 

BLANK 


ENTER ''RUNNAME'' AS CARD TITLE 
NEW RUN NAME TO HEADER OF OUTPUT 
FILE 


nD 


POIGHAM MITEACINPUT, HITPUT, TAPESSINPUT, TAPE HSJUTRPUT, 
® TAPEL, TAPED, TARE 3) 


THIS PRIGIAM MERGES TWO MAWLOGS MODEL TRANSACTION FILES WHICH HAVE 
BEEN SNETED INT ASCENDING DROER IN ATRDS ONE AND TH) OR DESCENDING 
JRDER CIN AMR THQ, THIS PROGRAM OIFFERS FRO4 MTTF IN THAT THE FILES 
NEFD NAT SE FRM & SAVE BUN AND & RESTART SUN JF TNE SEME MODEL, 
THAT IS, THE NAME TABLES ARE NOT CONSIDERED Tl) ¥E THE SAME OR ONE 

A SUASET IF THE (THER, 


TUT TAPE] FIRST FILE 
TAPE CO SFOOND FILE 


VyTeYT TAPER MERGED FILE 


TAPES [S FURMED BY MERGING THE NAME TASLE AS READ FROM TAPE 
wETe THE NBME TABLE FROM TAPE2 alTH THE TOANSACTION INDICES OFFSET 
TQ FOLLO@w THOSE OF TAPE1 IN ORDER, A NODE CODE OFFSET, READ FROM | 
A CAR), TS ALS) APPLIED TN MAKE THE NAMES UNIQUE FROM THOSE OF TAPEI, 
THF QUTPUT TAPE SHNULD BE QIN THROJGH AGATE TI PRIPERLY HANDLE 
SUIRCOME TYPE 1 STATISTICS, T4PES MUST BE SORTED BEFORE THE AGATE RUN, 


THEG AND TEIN ARE SELECTED TO COVER THE RANGE UF TAPE} AND TAPEQ, | 


INPUT CARD @© Shit Ae. | 
Cc1eCCS AS MITE? 
COASCECIG Sk RL ANK 
ChipeCC20 F10,0 NODE CINE JFFSET FOR TASEA TCTNAMS 


C1 ©CC7 10x SYNNAME (CARD TITLE) 
CiselCC2R 346 NEw RUN NAME 


zs 
G 


ANANA AAA AN RANOAOD IN AN AAANANANANANANAANNA? 


COUMMUN /GSPDUM/S THEG, TEIN NCLET, MONeNDAV,NYR, RUNNAM( 3), 

* MIDNAM(A),NAME (2) .N4DPP(S) 

DIMENSION &84(4),P90(500),4204) ,32(509),80(509),TAL (CU), T&2C4) 
EGLiTVELENCE (TA1,41), (T42,42) 

DATA NRZNAPMFIL,NETO,NFD,NRI,NRIL»,NRIO,YIO0E 

* 4590,4, L¢ can 3, air > Oe 0 / 

DATA FLANK S/H / 


OPEN FYLES 


qm 


CALL INITRCBI,NBS,LTR1,NFI1+“I9E,1EOF1) 

CELL INTTACR2,NS, LH2,NFTA,“IDE, JEW) 

MODE s 1 

C4LL INTTH(B8I,NA,TRO,NED »YIOE,YEOFO) 
C WFAN FILFe NODE OFFSET CODE 


26 671(5,1000) OFFSET 
(ON FORMATE IOX,F10,0) 

READ (§,1010) RUNNAM 
1990 FB RMET (SON, SAH) 


C REA FIRST SIX HEADER PECURNS FROM NFTI AND COPY ON NFTO UNCHANGED, 
C 
10 Ts1i1,6 
CALL ORL K(S1,B1,N4, 
EF ff.t7.5) GO 70 
TE (RUNNAM(1) ,E9, SLANK) GO TO #& 
TF (EER. 6) BE Tew 
at(d) a NAM (4) 


NB,IRL,“ET1,TEOF1) 


RIINNAM( 2A) 
BuUNNAM( 3) 


CALL BLOCK CAL Re Nem, THUSNF )) 
TINUE 


Sx Te FTeST STX HEADER RET IRNS FRI NFI2, 


Po Pe yet 6 
CALL DSL C482 Se,A NR, TKO, VF TA, TEUF 2) 
29 CONTINUE 


DETROMINE THEG AND TEIN FROM™ RECORD 7 


CALL DALK(41,-81,N4,NH,TBL,NFI1,TEOF1) 
TEEG1 = ALCS) 

TEN? = AY CH) 

CALL MALKTAA,RO,NANA,TRONE IO, TE OFA) 
TREGQ = 429(3) 

TEIN2 = &eCo) 

TREG = TREGI 

Ie (TREG «GT. TREGe) TBEG BEG? 
TRIN & FFINY 

Se Gre STS Tene REN TEIN? 
ALES) -S TRESS 

gS (OH) = EP TN 

CALL BLOCK (CALL SN,NANA,I&NNF OD) 


NETERMINE NTNC FROM QECORD A 


CALL M8LK(41,81,NA,NR, I Bt +NET{,IEOF1) 
NMTNY = PALCS) 
CALL DALK CAA, HA,NALNR,TRAO,NF IO, TEOF?) 
NTNO = TAPC3) 
JTNO) S NTA] # NING 
TATCS) Ss NTND 
COLL ALOCK CAL, HN, NVA,NR,TRI,NF 1D) 
COPY NAME RECORDS FROM™ NET} TD NFO 
= NTN{#Q2 © | 
1} $0 Ts1,Nn 
COLL PRULKOCAJ,8{,NSA,NK,TBL/NFIL,TEIF1) 
a0 COLL BLOCK (44,49,NA,NR, TSI, NED) 
HekeY?D = AL(2) 
COLL OBL KC4I BRL, A,NHO, THIS NF TIL, TEOF!) 
COLL BLOCK (AL » AD, VA, NR, TR, IF) 
MeCING = ARS( ALTA) @& HRKEYD) 


\V-7 


tert = ARINC 


CIPY NAME RECORUS FROM NFT?2 TV NED, CHANGING NDE CNOE AND KEY wORDS 


oo ie oe) 


TReKFY} = T4101) 
SEKEVYO2 = AL(2) 
7 UO TS{eNfn2 
CALL OSLK (42,82, VA, NB, ITB2Q,NF le, TEQF2) 
Tae?( 1) = TRKEYY + TRING 
82(2) = ARKEY2 © ARIAC 
TOKEYS s [TAA(1) 
mMRKEVYO = A2l2) 
C JFESFET NONE COTE 
A2(3) = 4203) + OFFSET 
CALL RLOCK(42,890,NA,NR,149,NED) 
CALL JRLK(A2,BP,N\A,VS,T8C, FIO, TE DFC) 
TASCES S TRKEVE © FRENC 
42(27) = HRKEYO = ARINC 
IRKFY1 = TA2(1) 
MKF YD = A2( 2) 
C46tt BLOCK (A202, BN, NA,NB,IBII,NF) 
40 CUONTINGCE 


TRANSACTION NAME TARLE COMPLETED 


TRANSFES TRANSACTION RECORDS FROM NET] TO NEQ 


ANOANaAONAMN 


5o C4L. DALKCAL,81,%4,N6B,TBL,5FI1,ITEOF1) 
EF ({TEDEt .Gi. 1) Go TO 60 
“MBT{ = NRIY ¢ 1 
CALL BLOCK (4),80,NA,NB,I80,NFD) 
NRO} Ss NRU + 1 
69 TO 50 


COPY TRANSACTICN RECORDS FROM NFEI2 TD NFO, ADNDING NTN} TO TRANSACTION 
TNDICFES ST THEY CORRESPOND TO THE NEw NAME TABLE ON NFQ, 


OaAND 


50 COLL NRLKCA2,B2,NA,NS,IRC PSF IOC. ITEDFO) 
If €LEORS wzGis 1) GO! TO 70 
“RTA = NRTO + 1 
TA42ec1) = TAeC) + NTN 
CALL BLOCK (4A2,RN,NA,NR,ITBO,NFD) 
WR) 2 NR) + Y 
Go TO 60 


FILE MERGE COMPLETE 


oT fy 


70 Ca4LtL ENDB(BO,NB,NA,TRO,NFO) 

REWIND NFO ‘ 
APTTE 66,2000) NTN INTNAINTNOSNRILeNRIQ,NRO,TREGI»THEGS, TREG, 
+ TFINI,TEINO TEIN 

POO FIRMATCVHOs SOX, OHFILE SL, ON, OME ILE S20 OK, OMOUTPUT / 

25H NO, TIE TRANSACTION TYPES, 3112 / 

25H NO, GF DNATA RECORDS, .,2.03T12 / 

25H BEGINNING TIME sn cccnccact dieses / - — 

2S6 ENDING TIME veeccenvevers? SFie,s ) 


*y ee 
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eRTTEC6,2010) OFFSET 
2019 FORMAT (/S/U9H THE NUDE CORES eR TRANSACTIONS FROM FILEee ARE 
* Jon INCREMENTED RY .F10,3,20M ON THE OUTPUT FILE ) 


Cane EXIT y 
ENN 
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CHTFH PROGRAM 


Purpose 


This utility program provides the capability to change transaction 
file header names given the index of the name. Thus the type, PERMAT 
resource ID, resource, or node number can be changed for any transaction 
on the file. This can be helpful to separate two transaction entries with 


different indices but the same name. This situation could occur due to a 


merging of two different model files or an error in model statistics collec- 


tion. 
2. Use 

The program reads a transaction file in from file TAPE] and writes 
out the transaction file on TAPE2 with only the specified names changed. 
The CHTFH program reads in a deck of input cards starting with the standard 
ODPS TITLE card used to verify the identity of the transaction file. This 
is followed by as many CHGNAM cards as are necessary to make the changes. 
These cards must be input in transaction index order. The final card is an 


end card. The formats of the CHTFH cards are shown in Table IV-2. 
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TABLE IV-2. FORMAT OF CHTFH CARDS 


CARD 
COLUMN FORMAT DESCRIPTION 


TITLE CARD - ONE CARD AT FRONT OF DECK 


1-5 AS CARD IDENTIFICATION 
6 1x UNUSED 
7 Al CHECK OPTION® 
8 1X UNUSED 

9 -10 12 MONTH OF MODEL DATE 
1] 1X UNUSED 

12-13 12 DAY OF MODEL DATE 
14 1x UNUSED 

15-18 14 YEAR OF MODEL DATE 

19-20 2X UNUSED 

21-38 3A6 MODEL RUN NAME 

39-40 2x UNUSED 

41-52 2A6 MODEL NAME 

53-54 2X UNUSED 

55-66 2A6 ANALYST NAME 

67-80 14x UNUSED 


CHGNAM CARDS - ONE FOR EACH INDEX NAME TO BE CHANGED 


[yee A6 ENTER ''CHGNAM'' 
11-20 110 TRANSACTION INDEX 
21-30 110 TYPE CODE 

31-40 110 PERMAT RESOURCE 
4}-50 110 RESOURCE NUMBER 
51-60 110 NODE NUMBER 


END CARD - ONE CARD AT END OF DECK 


l= 6 Ab ENTER "END! 


°1F THE CHECK OPTION FIELD 1S NOT BLANK THEN NO COMPARISON IS MADE 
BETWEEN THE DATA ON THE TITLE CARD AND THE DATA ON THE INPUT FILE. 


I 


PRIGRAM CHTFRCINOUT, UITOUT, TACESSI PUT, TAPE SS IUTPUT, TAPEL, TAPEQ) 


TIS CPNGRAM CHANGES TRANSACTIIN FILE HEADER NAMES GIVEN THE INDEX 

JE THE NAME, THUS THE TYPE, PERMATeRESID, RESNURCE, IR NODE NUMBER 

CAN YF CHANGED FOR ANY TRANSACTION ON THE FILE, THIS CAN BE HELPFUL 

T) SEPSRATE Tw) TRANSACTION ENTRIES WITH DIFFERENT INDEXES 8UT THE | 
Same NAMES, | 


FILES TAPE INPUT FILE IN &SCENDING OR DESCENDING OROER 
TAPE QUTPUT FILE wITH INLY THE SPECIFIED NAMES CHANGED 


TVPUT CARDS @ 


| 


TITLE CARD AS SPECIFIED FOR AGATE JR TRAFAN 
CHANGE CARDS = BLANK OR ZERO CUMPONVENTS w~ILL VOT BSE CS4ANGED 


Cey = Ces 66h CHGNAM ee CARD TITLE 
CCtle CC25 TiO TRANSACTION INDEX 
CE2i= CO3S0 F360 TYPE 

CO31= CO4H TIC PERMeRES 

CCute CCS9 Tit FESOURCE 

CcCSi= CC#O 19 NODE 


END CARD 


VAIMTVAIAMNM AO AYO OIOMBAMODVAACMAAARIA MN 


CC1 eClhK AA ewe eO 


oo 


CAaRNS MUST RE FNTERED IN TRANSACTIDN INDEX URDER 

COMMON ALINCOM/LINE, TPGSKP,TCLHR 

COMMUN 4ZGSPDUM/ TREG,TEINANCLOT,YONeNDAY,NYR,RUNNAM( 3), 
* MODNAM (2) ,NAME (C2) ,N“DPP(S) 

TIMENSTON AI(4U),7TAT(4),37(6590),FR 90500) 

FY ST VALENCE (At,TAT) 

DIMENSTON TOTNAM(4,1500),CHGVA%( 4,300), INOCHG( 300) 
TNTEGER TCTNAM,CHGNAM 

NDIMENSTON JMAP(U) 

Cara NR ,NA,NEIT,NEM,MNDE 450904514259 / 

DATA END,ACRNAM Jb6HeeeEND, BHCHGNAM / 

DSTA LTCTATISTVAM,TPTNAM,LCHG 4150001,1,300 / 

DATA IMAP /$,2,4U51/ 

DATA NMDPPE /OHCHANGE,6™ TRANS, OMACTION, 64% FILE ,6HHEADER / 


STLRAT TRANSACTION FILE READ, PLACING NAMES IN TCTNAM 


aoc 


Cae TZRSTFCKI,NR,TR,NFT, IF OFT ,ISTNAM,TCINAM,LTCT,TPTNAM) 


mn 


C4LL vERTFY 


TN CHANGES, ASSUMED ITN TRANS, INDEX JRDER 


| 
Dp 
vy 
> 


IORG 20 
Yi FESS BS ICG. © 7 

wFEY (5,1900) CRONOM, TNOCHGCICHG), (CHGNAM(T,ICMG),T 81.4) 
1490 © ieYaT(b6,4xK,5T10) 


! IE (PF RNNAM .EO0, END) GO TN 30 
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t « 
* 
ts i a cn ce Es ee ca al a 


a” 


nan 


nao 


nan 


ane 


on 


ALL CHANGE 


cr joy 


Cease AE 


TRANSFER TRANSACTION 


FIL 


TF fCRDNAM EN, 


eCHNAM SAND 


> TOWG ake 


ARTTE (C6,2090) CRINAM, ICHG 
ANN FOOMAT( TRH AKRING CARD NAMED 446,274 
! 15,124 CAPDS RF AD, ) 


IC“G s TCHG © j 

CARHS Read, CHANGE SPECTFIED 
TF CICHG LE. 0) GN TH 100 

79 90 T21-ICKG 
Jos INDENGCT) 
Of GO KS1,4 

TF (CE RGNAM(K,1) 
kM = JMAP(K) 
TCTNAM(K™, J) = 
CONTINVE 


s€9,° 9) GO TO 80 


CHGNAM(K,T1) 


“BITE (6,2010) J,TCTNAM(3,J),-TCTNAM( 

2010 FURMAT( 22H TRANSACTION NAME NVQ TS, 
CONTINUE 

CRANGES CIUMPLETED IN TOCTNAM, CREATE OUT 
LINE & 69 
“MONE 2 2 
CALL INITACKI,NB,TRI,NFT,MIOE-ITEDFI) 
“ODE #@ 4 
CALL INITACBO,NR, TAN, NF D,MIDE-TEDF )) 
MEANDER RECURDS 

%) 60 Tai,8 
COLL DPLK(AT,BI,N4,NA,TAJ,NFT,IE IFT) 


IF (FEOFI NE. 1) 69 TO 200 
CALL BLOCK (47,50,N4,'8,7T89,NFO) 


69 CONTINUE 


§ fai 6 
zee 


990 70 Tsi,LTcrT 

CALL DSL¥CAT/ALSNA,NB, ISI, "FI /IEQFI) 
TF €IENFT sNEw 1) GO TO 200 

4703) = TCTNSM(1,1) 

AT(4) = TETNAM(2,T) 

COLL BLOCK (CAT, RO,NAayNB,T39, NED) 

COLL MPRLKCAT,BIL.A,NB,IBI,NFI-TE IFT) 
Tf €TEOPT sNE. 1) GOT) 200 

4103) s TOTNAM(3,1) 

ATCU) = TETNAM(4,T) 

CALL ALOCK(CAT,589,N4,"K,T8U,NFO) 


79 CONTINVE 


RECOROS 


AD CALL DSLKCAT BI, NANA, IBI,NFIOTEOFI) 


Tr FIEOP? »NEs 1) GN TD 90 
CALL SLOCK(C4T,8O,NO.NR, TAD, NED) 
GN Tir BO 


CHMPLETE 
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T,LC4G) GI TH 10 


UR T79 MANY CHGNAM C489S, 


NAMES YN TOTNAM 


2eJ),TCTNAM( Us JT), TCTNAM(1 oJ) 
LOHCHANGE De ep S(IT19~72X)) 


PUT FILE wITH NEw NAME TARLE 


FALL ENDS CRO,NB, VA, TRO,NF)) 

RFATAD NEN 

wHITE (6,2990) 

FORMAT(URH TRANSACTION FILE HEADER NAME CHANGES COMPLETED, 


CALL TZRSTECHO,NA,TA,NFO,TEDF I, ISTNAM,TCTNOM,LTCT,IPTNAM) 
COuL Exyt 

ARTTE (6,2299) 

FOURMAT(//45m END OF FILE HIT WHILE READING HEADER RECORDS 
C4LL Ext 

BNO 


THE BDM CORPORATION 


0. PROGRAM AGATE 


The purpose of the Aggregation Program AGATE is to aggregate transac- 
tions across statistics type codes, resources, and nodes and produce an 
Aggregated Transaction File. The use of the program AGATE has not changed. 
Only certain aspects of the interna) logic have been altered to handle 
continuous flow statistics, to handle statistics that are deactivated during 
a model run, and to set the sort keys on the transaction name table. 

The program was altered to change the assumption that a change in a 
TMST statistic occurred for every entry on the transaction file. This was 
necessary for continuous flow statistics that are collected on a periodic 
basis, whether the variable changes or not. 


When statistics variables are deactivated, the AGATE program must 


— 


realize this and not spread the latest value over the remaining time. To 
recognize this, an expected time for the next transaction for an agaqreqgated 
component is stored so that an inactive statistic may be terminated. 

The transaction file header name table has two sort keys at the start 
of every record. The first key is an integer value which causes the name 
table to be placed at the beginning of the file by an ascending sort on 
the transaction index for each record. The second key is now a real value 
which causes the name table entries to be placed at the beginning by a 


descending sort on the transaction record time values. 
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MAARAAAMAMAMAIORWIOVIAIOAINONONNAIONONONOE 


* 


ses e+ © & 


* 


* 
* 
* 


PRUGRAM AGATE CINPUT,MUTEUT, TAPESSINPUT, TAPES SDUTPUT, 
TAPE}, TAPES, TAPES) 


NUTPUT DATA PROCESSOR AGGREGATION PROGRAM 


CURPSE ween 

THIS COPIES A TRANACTIIN FILE ONT AN AGGREGATED 
TEANSACTION FILE, THE TRANSACTIONS JF A GIVEN TYPE FOR 
MULTIPLE NODES AND RESOURCE MAYRE AGGREGATED INTO ONE 
MEF INED 8Y TRE SSME TRANSACTION TYPE CIOE AND USER DEFINED 
AGGREGATION NODE AND RESOURCE, 


[\eur 
1, TRANSACTITN FILE ew TAPE 1} 
(SORTER INTO NESCENDING TIME JRDER WITH THE FILE HEADER DATa 
ASD TRANSACTIUN DEFINITIONS ST THE BEGINNING,) 
2, AGGREGATIIN DEFINITIONS ©# CARDS(TAPES) 


WTPUT 
t, AGGREGATED TRANSACTION FILE eaTAPEO 
2, REPURT OF AGGREGATION TRANSACTITIN OEFINITIONS AND LARGEST 
SIMULATION TIME VALUES FOR EACH CIMPONENT, 


INTERMEDIATE ee COMPONENT AND AGGREGATION TRANSACTION DEFINITION 
BY TNDEX ee TAPES 
MT 4ENSTON BICS12), ATC4), 890512), ADCU), TAY(4), TAN(4), 
INK(1509) -NOTS(1500},K0EC(1500),7T0E6(1500),TEC(1500), 
IxXC(2000),1xK4(2009).ITxXC4(2000), 
TIA6$000) ¢ XA ($000) pYOACI000) sINXC(1900)¢ 
TCTNOM(G,1590), TA4T5), ICARDA), 
NOEN(200), NOCR(200), NOCV(200), 
10TC1500), IDIX(1500), NOOPP(S) 
COMMUN /wR/ NPRNT 
NOATA NORNT /6/ 
COMMON /GSPDUM/ TBEG, TFINANCLOT»MON,NDAY,NYR,RUNNAM( 3), 
MODNAM(2),NAME(2),NMDPP(S) 
FQUTVALENCE CALTeTAL), CAD,TAD), CATSIXT), (CALC]-TI» CAIC3),X), 
CINX,TCTNAM), (KOC, TCTNAM(1, 376)), 
CXDA,TCTNAM(Y, 751)), (TOA, TCTNAM(4,1126)), 
(41¢64),Y) 
DATA T4A/ 3HAGG, 3HNOD, SHRES, SHEND, SHVAR/ 
ATA NIDPP/1# , BHAGGREG,OHATIIN ,6HPROGRA,1HM/ 
INTEGER TCTNAM 
CINSTANTS 
LTCT = 1500 
NA 8 U 
N@ Ss 500 
ITOTNAM & ] 
ISTNAM 8 j 
LaTer = 1000 
LeaRt = 2000 
NOP 3@ | 
VFN 2 2. 
yr) 1 Tet.e5 
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A aN hth ta mal tana 


— 


Moan 


edu 


NMNPP CT) s NOPE CTY 

START TRANS ACTION FILE 

COLL TZRSTFCBIA,NA,TA,NOFY,TENFT,ISTNAM,TCTNAM,LICT,JPETVAM) 
Call VERTFY 

ARITE COMPIINENT TRANSACTION DEFINITIONS SINT) SCRATCH FILE 
REWIND 3 

ARITE (3) CCOTCTNAM(T, J) e-T8164),-JEi,L°CT) 


29 200 Tsai-LTCT 

NOTSC(I) = MOOCTCTNAY(3,1)410019) 

TE (NOTSCIT) eNE. 2 .AND, NITS(T) NE, 329 NOTS(T) = 1 
IMT(CL) = TCTNAM(3,1) 

TOIKCT) a I 


SORT JOT, 

NP = LTCT 

i Se pet 

fs CEe ree 
N99 206 TIlet,NP 
T let 

J = ITet 


Tf (J aGTa NPY GO YO: 208 

IF CTDT(I) ,LE, rOrty3) Go To 206 
IH 2 INTEL) 

TOTCI)Y = IOTCS) 

IOT(J) = IH 

FH = FOrxCE) 


IOTMET) = TOI RC) 
IDT¥¢ 3) = 5 

Y (ate Bas 

I = Feb 

Fe CE Gta 02 SO -THt 206 
CONTINUE 


Fe Ch a6G)a 2) GO TO 202 


STORE AGGREGATIAN DEFINITTIINS 
NMA = O 


TIN = 0 
PEBD (5,229) C492) 
FORMAT (2x%,45,7¥,71109) 
PRINT 219, TCARD 
Foemvar (43,7x,7J19) 
DO 222 Tsi,5 
IF (ICSROC1) ,EO, TAACT)) GO TO 226 
CONTINUE 
BAD CARD, 
ARPTTE (6,224) TFARD 
FQRMAT (//1 7TH TMPROPER C&RD ©,43,7KX,7T10,174= OR JUT OF NRDER) 
SOBE © NORCO1 
GO Th e148 
aM Tf (23042604270 ,290, 27K). 
AGGREGATION CARN, 
«Type = } 
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i i i 


239 


euek 


APITE (3) ITCARD(2), TCARD(3), TCARD(4) 

IF CIIN ,E9, 9 ,QR, ITR £9. 9) GO T9 252 

IF (Itv NE. 0) GO TN 227 

NOCV(1) =& NATT 

If¥v¥ = { / 

TF (IJV .E9, 1) GO TO 229 | 
| 


tT = “NDO(NOCVC1)/10,10) 
DY 22k Jee, tly ee 
TF fT QNE, MINOCNICVOS)710010)) GI TO 252 | 
CONTINUE 
Y) 253 Ks1,1Iv | 
NATT = NOCV(K) 

FIND FIRST COMPONENT wITH AGGREGATE TYPE TRANSACTION, 


3 Ee SE) ee 
Na <= | FET 
Ix = (N14N2)72 


TE CNATT © IDTCIX)) 236,244,238 
NATT TS SMALLER 

TF (EX GEG. NI} GO TO 240 
N2 = [x 

GN TH 232 

“ATT [TS LARGER 

IF ¢(I¥ ,£9, N2) GO TO 240 
Nig = FS 

Ixy = (NI4#N24¢1)/2 

TF (Ni+i E90, Ne) GO TO 239 
=e 


} 
3) 


Ix 
IF (NATTY ,EQ. IOTENY)) GO TO 24ae 
Jax. = NV 
TE (NATT EQ, JOTC(N2)) GO TO 24a 
‘iQ MATCH, 
ARTTE (6,242) NATT 
FORMAT (//19% TRANSACTION TYPE w#,110,13H*e NOT ON FILE) 
69 TO 253 
1— CIX% ,60, 1) GO TO 246 
T® CIDTCIX) NE, LDTCIX#S1)) GO TO 246 
= [xe 
69 TN Pau 


IC = TOTXCIX) 

DO 250 [s}.1IN 

IF €NOENCI) sNEy TCTNAMOEYSTE)) GD TQ 250 
00 248 Jer, IR 

IF (NOCROJ) NE. TCTNAM(U,IC)) GO TD 2uB 
NIL = NIL! 

FXECNTLY & FE 

TKACNTL) & NOAM 

69 7 251 

CONTINVE 

CONTINUE 

Tx & Tx} 

IF CIOTCIK) EG. TOTCIK#1)) GI TO Aub 
CONTINUE 

IF CICARDCS) .E€9,. ef) GO TD 282 


“aTT s JOCARDC2@J IV-18 


NOAA S&S NOB] 
Illy = Q 
TIN = Q 
PER = 6 
IF (ICaROC1) ,EG, =-1) GO TD) 28e 
G9 Tu 218 
Cc NODE CARD, 


259 DD 262 [22,8 
IF (FEAPD(T) EQN, 0) GO TO 262 
LIN S&S TIN®{ 
NOCNCTIN) = ICARDCT) 

262 CONTINUE 


cir TM 24 
c PESOURCE CARD 
270 215 he Te2,5 


TE €TESROC1) .60,.. 0) GO TO 272 
TT® = TIR4}1 
NOCRCII®) = ICARDCT) 

272 CONTINUE 

ies GTO 218 

€ STATISTICS TYPE COHFE CARD, 

274 09 275 Y=22,-8 
FP CTEGRDCLY ~<E@. 0) 6H TO 275 
TIy = IIvel 
NOCVCIIV) = ICARD(T) 

275 CONTINUE 
60 TO 218 


¢ 

Cc 

289 TCARD(L) = #9] 
GQ Tr 23! 

C 

€ 


2Re END FILE 3 
REWIND 3 


IF (NOBE «NEw 0) STOP 


C SAVE KELATICIN TABLE [N 4G6G SORT JRDER AND SET YP POINTERS TD NEXT 
C CIMPONENTS FOR EACH AGGREGATE ( INKC ARRAY ) 
09 283 [Ste,NIt 
PAS IXCHC(T) = YxECCT) 
Ix = ] 
NT 28R Tei,NO4b 
2A4 TxC({l) = Ix 
TF CI¥ GT, NIL) GO TO 288 
IF (TeACTX) .EG, 1) GO 19 286 
Be €F ghils EXECIE?}) GO TO. 286 
EX 8S ik * 1 
TE (IX ,GT. NIL) GO TO 2AB 
286 1% s Iv + | 
IF (I¥ GT. NIL) GO TO 288 
TIP CENRCTE) sEQse F 1 GO TO 286 
PAR FON TINGE 
INXC(N74 @ 1) S TK 
C INWE Nw POINTS TD START OF CIMPINENTS IN AN AGGREGATE IN LIST 
C CAUNTATNED IN JT XCA APRAY 
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PI? 


O97 


298 


594 


SN9T RELATION TARLE, 


= NEL 
ey ale 
= (L4+1)72 
e994 Tl=s},\P 
IT 
if 


IF (J .GT. NP) GO TO 296 


TE SOLXEChy Sle, IKeCH)) Ga 1 aod 


[Hos PO Cr) 

TXECl) = EXEC) 

EXC Cy s-EH 

TH = PRACE) 

TxAtT) = [Txa(J) 
TRACE Oo FR 

je mee 

1 = he 

CEC) "GGt.s GO) Goo TH 
CONTINUE 

Te Ce cGh.. 100 Gal To 


TENDP = TEINS100,0 
ify eta 


DO SOA Te Pit rer 
TRECEY &@ TENSP 
TECCI) = 0,9 
COGCHY = 260 
INECTY. s (UX 


te ¢ Fx eGTe NTC} Ga 
I CEXCCEX) SES. ut) 
HF GT wkier ESE CEe):) 
Tx 3s [xo] 

Te £1N gGto NIK) GO 
GY TN 297 

NOTSCT) = 4 

of TH 392 

TX 1s FXSE 

IF Civ 4G6Te AIL) GO 
te (YxCfI¥) £0, T) 
CONTINUE 

ENX CET EC TSE) (Ss FX 


DQ 304 Ts},NGA 
TOUACT) = TENKP 
YOACE) © O69 
YAIACT) = 0,0 


START JITPUT FILE, 
MODE 2 1 


CALL TNITACHIANA, IBO,NOF I, 4IDE, TEDEO) 


Ja dC1) & ©1,0E410 
NCA) = 1,908%10 

v1 $2u Js1,7 
Tare1) s TANCL) 41 
&ot2) © 802) © fj, 


“7 49 €316,312, 322, 314,316, 315,320)» 


292 


290 


GO 


298 
TO 300 
TU 298 


29R 


302 
TO 300 
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s0(4) b-S aGat 
> Tf} BPu 
312 TANC3) S&S MUDNAY(1) 
TAG) B&B MUINNAM( 2) 
3 6T $24 
gta TAN(3) = MON 
la4o(u) s yay 
Sur oFL? §Pu4 
315 TA0C3) S NVR 
47(4) s RUNNAM(Y) 
23 TH Bed 
3148 4(3) = RUNNAM(2) 
4)(4) Ss BUNNAM( 3) 
GO TN 324 
320 A v(3) = THEG 
AvCa) s TFT? 
GO 1 $24 
$22 TAN(C3) S&S NAME(4) 
[TA vC(d) = NAME(2) 
gA4 CALL ALOCK (40.8 7,Nd,NB,IRBD,NIFN) 
C 
CALL PGBHEDRO 
C ene 
C FXTEACT AND ASGGREGATE eee 
— C eet 
[3 
wOO = FALL NAL CAT, ST»NA,NBOTS/NOFIT,/TEQFT) 


TF (IEOFT,NE.1) GO TN 500 
IF CNOTSCIXT) FEO. 4) CGO Te 200 
IXIN & NOTSCIXKT) 

—~—— Ixm = INX(1XT) | 
IME = INXCIXT4#1)@1 


IF (TOCCIXT) EQ. TENDP) TICCIXT) =& Tf 


co Tt PR4 eRe ORO. ae | 
Cc TYPE STATISTIC © {, 
ato m B25 TAIxXBsr LXE vi 


| 
| 
Iv = Jx A(T) 
TE CTOACTYY ,LE,. TEINY GO To 415 | 
TOACTX) 2 | 
YOREIN) S *X 
YOACIX) = Y 

69 TN W25 


rT 


tS IF CEOACTX) <60q T) Gh TO 420 | 


TIME CHANGE, SUBTRACT ANY COMPONENT © VALUES THAT HAVE NO 
TRANSACTIONS KEFORE THIS TIME 
¥NATX = XMACITX) 
I¥XB 3 INXC (IX) 
IXKXE &@ INXGOIX © 1) @ 1 
0 17 IT F IKXKMB,IYXED! 
T¥x = TxC4(TI) 
IF(T GE, TECCIXK)) GO TD 447 
C COMPINENT [xX HAS ND FARILTES ENTRIES 
KD4CIX) & KOACTX) |= ¥NE (IXY) 
G17 CONTINUE 


( 
u 
C 
C 
C 


}V-2] 


TAd(1) = IX 
Aq¢2) = TOACTXK) 
avce3) s xQAC(IX) 
an(4a) s TOACTX) eT 
CALL BLOCK (A0,RI,NA,NB,TRID,NOFO) 
c 
TOALEIX? = 7 
C RESTIRE x94aCTX) TO FULL VALVE INCLUDING ANY [TNACTIVE COMPONENT VALUES 
X¥ONA(TX) = XOATX 
YOA(Ix) = Y 
a?) XOA(T¥) = XKOACTX) + (KeXOCCIXT)) 
“As CONTINUE 
C 
KOCCIXT) = X 
C SET EXPECTEN TIME FOR NEXT TRANSACTION FOR THIS COMPONENT 
TEC CEORY = T=: -v 


69 TO 400 
UU TYPE STATISTIC 2 AND 3, 
aSo NO bon TSTXAR,IxXF, 1 
IAN({) 3 ITXACT) 
£062) = F 
agne3) = x 
anc4) s Y 
us) C4LL SLOCK (40,89,NA,NB,IT8D,NIFQ) 
69 TO 400 
c EXTRACT COMPLETE 
a6 O) S40 Tst,NOa ane 


TP ¢TOACT) EG, TENDP) GO TO 510 
C SJRTRACT ANY COMPINENT xX VALUES THAT ARE INACTIVE 
TxxR = INXCCT) 
IXXE “a> TINKOGCE Sf) = 
90 505 TI = IXKA,IXXE,] 
[xx = TxXCACTI) 
IF (TOACI) ,GE, TECCIXX)) GO TO 505 
C COMPONENT ITxXK IS INACTIVE 
YOACT) & XOACI) © XOCFIXXK) 
S95 CONTINUE 
PANEL) & fT 
Ay(2) TOACTI) 
43(3) xOACT) 
BOCRY S VOWEL) 
C4LL ALOCK (49,89,N4,NAR,ITRI,NIFO) 
510 CUITINUE 


READ (3) COTCTNAM(T,J),T=1.,4), Jai,LTCT) 


TANC1) & #1, 0E419 + & 

4n(2) = 1,0E +1008, 

140¢3) Ss NOA 

Tautu) = 0 

C4ut BLOCK (AN, 89,NA,NB,TRIDZNIFO) 
& &-.87 


| fx 2 { 


D9 622 Tei,Na 

REAM (3) NATT, NAT, NATR 

TAV(3) & TADNCI) 414 
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afte) = atite) © ft, 
an(3) NAT. 
41(4) ra) 
CALL RLOCK (40,89,%4,NR,TRO,NOF(I) 
Pane, ) = TAOCH 44 
ADC2} = ADCS) &= 3, 
4065) = NATTY 
4i(4) = NATH 
CALL RALOCK €40,R9,NA,NA,TRIANIFD) 


C 

C LIST COMPANENTS OF THIS AGGREGATE 
TXB = INXOCE) 
IXE S INKXOG | & 2) os 4 


PHOR = 0 
NX) 620 JRIXB,IXE,1 
TC = PXCACL) 
Ey = THeCrey 
T& C1. GT TRIN: GOO TO 620. 
: PRO CG teenies Goes merent ss 
BOK CALL PGHDRU 
THOR = 9 
APTTE (6,610) 
610 FIRMAT (THO, SXKp,23SHAGGREGATIDON TRANSACTION, 25,1 0HCIMPONENT , 
* LAXTRANSACTIONS/S/4&X, 1 ANINDEX TRANS@TYPE,AX,UHNODE, 
& SX ,BHRESDIROCE, OX, TAHINDEX TRANS@#TYPE,RX,GHNODE,UX, 
BHRESOURCE, Ax, LOHTIME(LAST)) 
ete rere CLHO,6X, TS, 1X, STL2-7X,T4,1%,4T12) 
6{4 FIURMAT (54X,15,9¥-,4712) 
B=? 
GN TN 616 
G5 [PF CrHOR 260. 2) GO 70 618 
I’ €. <Gl. S58) Go Th 608 


O16 WRITE (6,612) IeNATT,NATNPNATRe IC TCTNAM(3,IC) ,TCTNAMC1 PIC)» 
* TOTNAM(4,IC) >IT 
I4DR = } 
L = Lee 


60 TO 620 

614 ARPITTE (6,615) IC,TCTNAM(3,IC),TOTNAMCIL,IC),TCTNAM(4,IC),-IT 
L = Le} 

620 CONTINUE 

62? CONTINUE 

CALL PGHDRN 

CALL ENDACBO,NB,NA,IBN,NOF 1) 


/ Cc 
BEKWTND NOF J 
QE wIND NOFO 
C 
se 
iD) 
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THE BDM CORPORATION 


Es PROGRAM TRAFAN 


The program TRAFAN is the controlling program for the Transaction 
File Analyzer Program. The basic purpose of this routine is threefold. 
First, it reads the input data cards and stores the information in the 
AGENDA and the GRPHDA labeled COMMON blocks. Second, TRAFAN reads the 
Transaction File and performs an extract for the variables specified in the 
card deck. Finally, it passes control to the appropriate subroutines to 
accomplish the statistical analysis and report generation. 

The use of the TRAFAN program has not been changed. The only logic 
change was to properly spread the values of a TMST statistics over time 


periods for continuous flow model statistics. 


| 
mn | 


——— 


re ie on 


r 


OWN 


PLIWGOAY TRAFLN (INPUT, QUTPUT, TAPESSINPUT, TASERSNUTPLIT, TAPEL,TAPFO 

* TAPE TB, TAPER) 

TRANSACTION FILE ANBLVZE® 

PURPOSE = TO GENERATE MISTIGRAYS, MEANS, STANDARD DEVIATIONS, MAKS 
AND MINS ON SELECTED DATA 


JIMENSTON TAC9),1C(66),4(4),8(509),ISEQ(16),ISEQ(16),SELCT(1509), 
* TEXTK (5,200), TAd( ied, £4861209,6),xCOUNT (2A), 
* COSTF(2), NONPPCS) 


COMMIIN, s/WR/ NPRNT 

DATA NPRNT /b6/ 

CUMIN SAGENDAZS TKXC1000), TSELCT( 3000), NOSVS, IXMAK, [SAK 
DATA TXMAX, TSMAxK £1000, 3000 

COMMON SSEQT/TSV,TSVpMAXNs IGINATSR,MAXR,TGOR,ITAISP,ICIDE, TV 


* pIN, TReLENN,LENR,LENT 
COMMON /SFQISZISV, ISN, IMAXKNG JGINe JSQ eo JMAXR, IGOR IT» ISP + ICUDE e JV 
* eIN, JR-ILENNp ILENR,JLENT 


CIOM¥ON SSVENTS SUMKXET( 4900) -NCVUNT PNXTCN 

MATA NCOUNT / 1900/7 : 

CUMMON SSVCLOT/S SUMKHT(1200),SUMK(1200) -SUMKXX(1200),XMIN(1200), 
* ¥MAK(1 200) ,NCOLCTONKTCL 

NATA NCOLCT 7 12007 

COMMON SSVHSTOS XL, wy, Hf22e 320), NHC 320), NHMAX, 

* NHTSTONXTHST,F (C22) CFC 22),AVG,S0 MI 

ATA NHTSTU, NHM&X 4 320, 22/ 

ROYMON AGSPOUMS TREG,TFINZNELE TS MONDNDAY,NYR, RUNNAM( 3), 


* MODNAM(C2),NAME C2) eNMDPP(S) 
CUMMON /GRPHOA/S [GRAPH(6,4N0), GHC300), LIG,e. LGS, LGA, 
* LINDxXG, IGR, NGRPHF, IEOFG, GAS) 


MATA LIG. LGB, LGA, NGRPHF / 400, 300,3,3/ 
COMMON JINSTAT/S/TEX,X1,XO,xX3 


INTEGER TCTN4M(4U,1500), GA,RUNNAM 


EQUIVALENCE CISEQCL),2SV) 5 
CJSESCL)s JSV)s 
CISELCTsSELCT), 
CAC1),ITXTFE), (402), TNOQK), 
(TETNAM,SUMXYT), 
(LOR, XLO), (MAXEY AVG), CMAXLA,SD),(MAXL3,MI)_ 
CXL -xKxCOLCT,XCOUNT »Y4ISTI), 
(x2,4TCLCT, ATHSTI), (TA, 44) 


>_ + e+ + F & 


JATA NEYILEs MODES 165 Ise 
THIS/OHHISTO /,IC/ SATIME ,6HRES rOMNODES , 
B4HVAR, SHEND,SHGRAMG/, IGNAM/SHGRAPH/, IBLANK/IH /, 
MAXTYS,TSING,ICOMB, TALL /6e6HSINGLE, UHC I43, SHALL /, 
IPRTM,ISEC /6HORTM ,S5HSECOND /, IGRAM /6HGRAM / 


* +t © 


QATA LICT,NAsNB,TSTNAM,IOTNANS 


* 159%, Uy, S00, 16 1/ | 
DATA ECQSTFE, SINPO/HHONST .eHFILE 45m TRA, SHNSACTI,64HIN FIL, 
* mHE ANAL, 6HYZER 7/4, NONSSOHNONSEDZ 

yy § t=1,5 

“MABE CT) s NUDPR (CT) 

TNTTTALIZE TRANSACTION FILE 
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200 
202 


2109 


ate 


e214 


2? 1 


Cath TZRSTF (B,NK,TReNFILE,LTEDF,TSTNAMS/TCTNAM,LTICT,IPTNAM) 
CALL VERIFY. 

INTALTZE GRAPH FILE, 

CALL INITR (GBPLGORB,IGR,NGRPHF ,MODE,IEOFG) 

STORE GRAPH TITLE DATA, 

READ (5,202) ITAA 

FORMAT (46,4X,27T5,1X,A46,1X,846) 

IF (74(1) NEw IGNAM) GO TO 219 

Gatt) = TAAC2]) #10004+TAa( 3) #10 

IF (TAAC3) EO, 0 , AND, JAAC4) EQ, TBLANK) G3 TO 206 
Ga(1) = GA(1)+4100 

TF (TAa(3) NE, 9) GAC1)S6401)4190 

ON 204 121,32 

G4(1) s GAC1) +1 

GACA) = TAA(CT +3) 

GA(3) = JAA] #4) 

C4LL RLOCK (G4,G6R,LG4,LG8,I1G32NGRPHF ) 

GO TO 200 


DO 208 Tsle7ee 

GA(1) = GAC1)¢1 

G4(2) = JAACT +e) 

Gats) s TAA(T¢5) 

CALL BLOCK (GA,GB+LS4,LG68,1G8,NGRPHF ) 
Gt Ty 200 


IxIG s 0 
G&aC})} = 9 

P22 121,868 
G4(1) = GAC{) +1 
GO TA €2120214,216,238,220,217,219,221), IT 
GA(2) s MON 
GAC%3) = NDAY 
GU TO 222 
G4(2) 2 ‘YR 
G4(3) = RUNNAM(1) 
69 TO 222 
GA(2) = RUNNAM( 2) 
§4(3) = RUNNAM( $) 
GO TO 222 
B84(2) = “ODNAM(1) 
G4(3) = MODNAM(2) 
G1 TH 222 
G4(2) = NAME( 
G4(3) = ( 
60 Ti) 222 
GA(2) s NODPP(1) 
64(%3) = NODPP(2) 
60 TO 222 
G4(2) = NODPP( 3) 
G64(3) s NOOPP C4) 
59 TO 222 
G4(2) s&s NODPP(S) 
CALL BLOCK (G4,G8,LG4,LGB,IGH, NGRPHF ) 
ARITE HEANER RECIRN OF COST FILE, 
REWIND A 
ir © 0 
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OANA TNANDDIAAANA 


tS = }2 
“RITE (BR) Tie TI ep ISe 0 ISTE pMIONAM,NAME ,MIN,NDAY,NYR,RUNNAM 
HOVE HISTO CARD AND NHMAX 
TFECTAC1) NESIHIS) CALL EFROR(1,74) 
INTTIALIZE 
NOSCTF = 0 
NQSVvS s 0 
TaSFQs0 
Its 
t$si 
«TYPESO 
NMMAX 2 TA( 3) 
WEAD GENERAL TIME CARD, 
READ ($,591) 14 
IF CIACH) oNE, IC€1)) STOP 
ITANF S&S [4(3) 
ITHA4LT = TA(4) 
ITLEN 3 TAS) 
QO 223 TS1,LIG 
M0 223 Jeie6 
225 TGRAP4(J,1)50 
IJ] TS THE INDEX IN UxC(TS) 
TS TS THE INDEX IN SELECTCIS) 
TYPE INDICATES THE SELECT IR TyPE 
te TF A VARTARLE CARN HAS BREEN READ 


2» NODE 
3, RESOURCE 
uo, TIME PERTON 


KOUNT TS THE NUMBER OF VALUES OF A CERTAIN CATEGORY OF SELECTION 
wHICH APPEAR ON A MATA CARD 
IX(TI) IS THE APPAY wHICH CONTAINS SELECTOR CIUNTS AND PIINTERS 
Tt) THE ARRAY SELECT 

ISELCTCIS) IS THE ARRAY wHICH CONTAINS HISTIGQAM SELECTOR VALUES 
Ivxs3 
INXS0 
TRx=20 
LABOLD=1 
LASNEws} 
WEAN TIME, RES,NODES, v4R OR END CARD 

10 RFAD(S,591)T4 

591 FORMAT (2A6,18,6719) 

CHECK FOR DATA CARN TYPE 
09 20 Jzi,MAXTyYP 
}TyPEsy 
TRCEAELY sEQs TOCI)) GO TH 39 

20 CONTINUE 
IF (TAC 1) «NE, NONS) GO TN eQ@5 
NOSCTFE = | 


690 TO 10 
CALL FERROR(2,T4A(3)) 
6 TO 10 


30 GI TAH (600,500,400, 309,1990,630), JTYPE 
VAR (VARTARLE) CARD 
$00 TFCKTYPE NE, 0961) TN 354 
“TYPES 
305 KOUNTSO 
$08 Ix TI] sI§ 
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TE (NOSCTF ,EQ, 0 ,AND, JTYPE FE, 4) NOSVSENISVSe1 
Tlsll¢1 
Ta2eNLhslale2) 
C CHECK ENTRIES ON CARN 

310 90 325 133,9 
TFCTACTI) ALE. 92 GO TO 325 
KOUNTSKOUNTS] 
ISELCTCIS)S IAT) 
TSsISe! 

325 CONTINUE 
Te (T&C2),E9, TOPRIM) TSELCTCIS#1)SISELCT(TSe1)/10000 
TE(KOUNT GT, 09 GON TN 340 
TECTACLIV.ED.IC (4), OR, TAC PA) VESTALL) CALL ERRDR(S,1AC1)) 
ISELCT(1$)50 
TS=,S+] 
Tu( frist 
$i. TO 385 

gun [KCI LVsSKOUNT 

$u5 TTslleo2 


¢ PRIM (CaTTH ALL SECONDARIES) AND SECOND (WITH LL PRIMARIES) 

Ls MAY SIT HAVE MORE THAN ONE ELEMENT SPECIFIES, 
IF COTACAD EG TPRIM OR, TAC 2),EG9, TSEC) , AND, <OUNT ,GT, 1) 

* F4LL ERPOR( TY, 1401)) 

IFCKOUNT.LE.0) GO TD 10 
TECrAaC]) EQ, TALL? CALL ERRIR(1S,7401)) 
$9 TO 40 

Cc TS THTS & VAR CONTINUATION CARN on ea 

350 TR (KTYPE .NE, 1) GO TH.379 
Tl2Tle2 ] 
oO) TO $10 
370 TEE KTYPE NE, JICALL ERRONR(U,KTYPE) 

C ‘Ew V4Q2 SET, SET REPEAT CODE on 
Ix(It)=s1 
IlzIlet 
TYPES} 
Ix(Ivx)s [I] 

TVxsTTe2 

GO To 305 SS 

C NONES CARO 


OOO IFC KTYPE NE. 1360 19 4580 
NEw NIWES SET 
4OS IF CINX,"%E,0) IXCINA) 3999 
GOs INXS] T4#3 
KTYPEs2 
C CHECK FOR SINGLE, COMB, OR ALL 
uo7 TFC(TAC2),NE,ISING)GI 79 420 
IxCIiI)si 
TIstl+l 
> $9 305 
429 LFCLAC2).NEICIM8S)GD T) 43 aicsiaccg a 
Tx(Il)s2 
TIsIle} 
$7 TO 305 
oso TECTACQ[]).NE, TALL) CALL ERROROS,ITAC1)) 
Ix(TIys3 
TrsIloi aisle 
aay ff 305 


c% 
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€ NODE CIONTINUATTIIA 
u$0 IF(KTYPE .NE. 2) GO TQ 470 
455 TTsllee 
IFCTAC2) NE. TAQ0L0)CALL ERR IR (Oe T4(1) 
TFCIAC2) EQ. TALL » CALL FRRIR(7,TAC1) 
GO TO 310 
€ NEw NODES CARD 
Q7O JFCKTYPE NE, SICALL ERROR(U,K TYPE) 
C SET REPEAT CODE 
Ix(JI)se 
TTstl+et 
IXCINX) STI 
50 TO W0h 
(oem PES (RESOURCE) CARD 
S00 TECKTYPE .NE,. 2) 69 T9 5598 
50S IFCIRX NE, O)IKC(IRX)3999 
504 TRxslyTos 
KTyPES3 
€ CHECK FOR PRIMARIES DR SECINDARIES 
IFCT4(2) ,NE, T°8IY) GN TO $20 
Tx(II) = 4 
ITsTI +1 
60 Th BAS ; 
S20 TFCTAC2) ~NE. ISECGU TO 407 
TaCT1ys§ 
ITsIle} 
B67 Ti BAS 
S5S0 IFCKTYPE ,NE, 3) GO TN S70 
C RES CONTINUATTON 
KAsTx([]2d) 


) 
) 


c PRIM (SECOND) CARD ATTH ALL SECONDARTES (PRIMARTES) MAY NOT RE 
< CONTINUED 

IF (HA, EQ,4,%,44,E9,5) CALL ERRIR(7,14(1)) 
C G9 TO 655 TO MAKE MORE CHECKS IN CINTINUATIONS 


Si) Ti uss 
570 TECKTYPE .NE, 4) CALL FRRIR(CULK TYPE) 
NEw RESOURCE Carn 
SET FEPEAT CUDF 
Ix(TI3s3 
Tle]! 
Ix(Ixx)sIT 
69 TO 506 


an 


ee 


c TIME PERTOO Caan 
6090 ITFCKTVOE NE, $) C4LL ERROSCAR,TA(1)) 

KTYPE =u 
I¥C(TT)IS1S 
[IlsIll¢1 
TF (TSIGNO1,1A(03)).LT.9) TAC SIELTANE 
TF (T4(4),LE.0) TAC U)eTTHaLT | 
IFCTACS).LE.0) IACSYSTTLEN 

C STARTING TIME ‘JF FIRST TIME PERT IO, | 
SELCT(CIS) = 14(3) 
TSS1S¢1 

C TIME INCREMENT I.E, LENGTH OF TIME PERTONS, 
SELCT CIS) =I 4(5) 
TSzTSe} 
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ee 


620 


530 


632 


a 
638 


$4) 
* 
« 
* 


54? 


NUMRER OF PERTONS, 

ISELCT (IS) = (I4(4) © 14(€3))/T4(5) 

SAFETY CHECK, 

IF (NOSCTF ,EQ. 0) GO TO 605 

IF CISELCTCIS) ,LT, 1 ,OR. TSELCTCIS) .GT, 99) ISELCTC(IS)=1 
1SaISei 

NOW READ A GRAM CARN FOR HISTIGRAM DATA 

READ(5,592) TACLI,TAC2),xXL awh, (TA (I), 18329) 

FORMAT ¢ 46,14,2F10,5, 746) 

ICQOEs TA(2) 

SToRF IN TSELCT 

TSELCTCIS)SICODE 

TSZIS + 1 

IFCICOOE ,LT.0 OR, ICOOE G7, SICALL ERROR(12,1CODE) 
TFCTAC1L) NE, TGR44) CALL ERRIR(G,TAC1)) 

SELCTCIS) = XL 

ISsISet 

SELCTCIS) & WH 

TSsTSel 

IMQNE Ss 0 

STURE ALPHA DESCRTOETIR Hata 

99 20 [33,9 

ESELCTCIS) & Tacy) 

TSsIS¢1 

CONTINUE 

ISELCT(IS) = 0 

TSELCTEIS#1) & 0 

1S = TS$¢e 

69 ban) 10 

6S) JRE GRAPH INDEX DATA 

IF (IKXTIG ,NE. O ,AND, ISELCT(IS#2) EQ, 0) ISELCTCIENOGX) = IxfG 
1x1G = I[xIGe] 

IENDGK s TS] 

IF CISELCT(1IS"2) ,E9, 0) ISELCT(IS=2) 3 JXIG 
TEROPHCL,IXIG) S&S TAC3)#1N0NeT ACH) #104301 

D0 632 Ts2e6 

TGPAPM(T,IXIG) s&s [ACT+3) 

IF (TACS) ehLT, 1 «OR, T4CS) eGT, 9) IGRAPH(2,IKXIG)=1 
60 TO 10 


END CarRD 

Ix(II)sa 

TxCIVx)s999 

T¥ CT «)2999 

IX (TRxKIS999 

TE CIXIG NE, 9) ISELCTCTENNGK) = [XIG 

TF CIKIG LE. LIG ,AND, ITS LE. FS4AX AND, ITT LE, IKMaAK) 

G2 Ti) 662 

wRTTE (5,040) IS, ISMAX, TI, JXMAX, IXIG, LIG 

gTtae 

FORMAT (21M1SOME ARRAYS EXCEEDED/ 
216 ISELCT==REQUIRED ce eee 140 16M MAK ALLIWEN ge TGs 
ZIM TKPREDQUTRED se eeccee er Lael 64 MAX ALLIAED eee TU 
217 TGRAPHM REQUIRED, gp erpT4v lod MAK ALLOWED, oer 14) 

CONTINJE 

LAST, S),TSINOEM, Jey FOR COUNT, 2 FOR CIULCT, 3 FOR HIST) LaHELS 

NETERMINEG SLL PNSSTSALE LARELS STORE IN LAR AND SNRT, 
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LARALL (1) 


wEXTCLTCT) 


PEAN TRANSACTIIN FILE 
TTe JT, AND KT ARE TIME PERTOD INDEXES 
IT © TNDEX TO TR CURRENTLY BEING ACCUMULATED 
JT = INDEX Th TO weICH CURRENT 2—CIRD SHOULD FALL IN 
KT © TNDEX TO TP TRANSACTIQIN wAS PLACED IN TAPE IN 
FOR TMST TYPE STATS (TYPSAT,E9,1), THE ELAPSED TIME, ACU)» IS 
SURTRACTED FRI)M TNOw TY NETERMINE weHAT TIME PERTINS THE VALJE 
IS 79 RE SPREAN OvER, 
1010 CALL PBLK(A,&8,NO,NR,JB,NFILE, TE) 
TE CLEGE <NE| 1) Git TH £609 
C DETERMINE WHAT T N91 wITH THESE STATISTICS 
_ 1050 TF CITK = ITKTF) 1060,1080,1910 
C 
1060 RFE4N (2) ITTX,NIRET,TYOSAT, 
a CCIEXTX(I,T),JSt1-65),T21,NORFT) 
T& CEMIF,2) 1600,1050 


' 
| 
} 


ANIAAAANe 


c 
1980 AN 3099 J=1,NORFT 
TORO s TAO 
Aauu = ACK) 
IF (TYPSAT ,EG0, 1.0) TORPSTORPeA(4) 
1$ 3 TEXTx¢2,I1) 
JCOCIDE = MODCISELCTCIS+3).10) 
198, JIT & LOC TORPeSELCTCIS))/SELCTCIS+!) 
IF (TYPSAT EQ, 1,0) ASUMSAMINI(C ACU), SELCTCIS)4*SELCT(IS+41)* 
* FLOATCIT)eTIRP, TVOWeTIRD) 
$082 YF CIT GE, 1) GN TO 1083 
TF €TYPSAT ,;NE, $40) GO TO 1099 
TARP = SELCTCIS)¢FLIAT(C JT) *SELCTCIS#1) 
IF (TORP GE, TNOW) GD TD 1099 
60 TO 1081 
1083 IF (JT ,GT, ISELCT(IS+2)) GO TD 31099 
G PASSED THE TIME CHECK, 
¢ 
Te (IEXT*(3,1) EO, 0) GN TO 1086 
[3 VARTSALE SET ONE, 
GE CETTE cEG.-CITR VaNGy JT «EQ, 279 62 TO 1087 
IF CLTFX aNE. 69 GA TN 1965 
1084 LITx s Tx 
Ty © 4 
TENDE = JCUDE 
18° = TExtx(2,7) 
TSV = TExTx(3,1) 


TSN = TEXTX(4,]) 
1§8 = LEXtx(S,7) 
IF (JT EQ. 1) G1 TO 1087 


1985 CALL LARALL (3) 


1989 


TF (ITx ,E9D, LITX) GN TN 1089 
CALL LABALL C4) 

69 TO 1084 

EPUS. PESy. 2 

TF 161) -Et. Ut) 6a TO 1065 

TF CIT.EG.JT) GO TO 1087 
amITE (6.2010) A,JT,IT 


2010 FORMAT( 34H TRAFAN ENCOUNTERED & TRANSACTION , 4F12,3, 


1087 


1086 
{OBA 
Cc 


x 
od 


1090 


C 
1992 


1994 


€ GHECK Te TIVE PERIOD Jn iS UP TO EP. 


23H Ti) BE ENTERED IN TP, »ITSe17H NOW ACCUM, 


(26H ABOVE TRANSACTION IGNORED 
Tee SS 4 
GU TO 1088 
IXX = TEXTX(C1,T)+JT=14 
GO 1TH(61090-1090,1092,1094), JCODE 
COUNT, 
XCOUNT(1) = ACS) 
XCOUNT(2) S&S AAYY 
CALL COUNTCJCODE) 
GO TO 1096 
COLLECT, 
¥COLCT = ACS) 
aTCLCT = AAGU 
CaLtE COLCT 
G3 TO 1096 
41STOGRAM, 
x» ISTO = AC3) 
ATHSTO = AAUY 
XLO = SELCTCIUS+4) 
ws SELCTC(IS¢S) 
CALL YISTO 


) 


KT, 


THAT IS, 


Tae ey) 


IF THE CURRENT 


C VALUE SHOULD BE PLACED IN ANOTHER CELL BEFORE NEXT TRANSACTION 
€ FS SELECTED 

1096 TORP = TORPoSELCTC(IS¢1) : 
ABUUSAMINI(CSELCTCIS+1)-TNOW@SELCTCIS#1 )*FLOATCJT)*SELCTCIS)) 


JT s JTe 
IF (TARP .GT, TNOW) TORP = TNOw 


KT = [,0+(TORPHSELCTOCIS)I/SSELCT(IS+1) 


IF (kKT,GE.JT) GO TN 1082 
CONTINUE 
69 TO 1010 
END OF EXTRACT, 
IF (TSV ,EG, 0) GO TO 2009 
C4LL LAB4LL(3) 
CALL LARALL(4) 
CALL LABALL (2) 
CALL ENDS (GB,LGBLGA,IGSeNGRPHE ) 
REWIND NFILE 
REwWINN NGREHF 
END FILE A 
RFWIND B 
sr yP 
ENN 
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THE BDM CORPORATION 


PROGRAM PGRAPH 


The purpose of program PGRAPH is to read the Graph File and to organize 
the data such that the subroutine GRAPH can print the graphs. PGRAPH has 
been altered to add the report or reports number for each cross variable in 
the graph. This program utilizes the report numbers that have been added 


to the graph file by program PRNTSO. 


PROGRAM PGRAPH (INPUT, DUTPUT, TAPE GSOUTPUT,TAPEU) 


THIS PANGRAM READS A GRAPH FILE AS PREPARED BY TRAFAN 
AND GENERATES THE ARRAYS AS REQUIRED BY THE SYAROUTINE 
GRAPH wHICH GENERATES GRAPHS ON THE COMPUTER PRINTER, 


NANMAN 


COMMA /GSPOUM/ TBEGATFIN,NCLOT»¥ON+NDAY,NYR, RUNNAM( 3), 

= ; MOONAM(2),N4ME(2) @NMDPP(5) : 

DATA BLANK /1H / 

NIMENSION 4(500¢9),8(500)-TITLEC9)+8T63),CT(O,9)> 

* GAC3), TGAC3), GRE300), FT(6), IFT(6) 

EQUIVALENCE (GA,IGA), (FT,IFT) 

NATTA FT /6+( POHUHOGRA, SHUHPH Ne OHUHO,,, ,OHTU, 5K, p OMAAS ) / 

DATA REPRTS- PLUS /OHREPRTS+ 6H teas 

INTEGER RBUNNAM, TITLE 

LT = a9 

MAYAVY = 500 
€ INITIALIZE GRAPH FILE ARWAYS, 

NGRPHF =< UY 

MODE =S 2 

LGA = 3 

LGR = 300 

CALL INITS (GB,LGS8,IGB,NGRPHF,MODE,ITEOFG) 
Cc STORE TITLE MATA, 

Nii {16 Tsi1,.9 

CALL DBLK(G4,GReLG4,LG8- 168, NGRPHF, IEOFG) 

GO TO €100,102,194,106,198,110,1120114,116), T 
190 MITA) IG4(2) 

“DAY 1G4(3) 

GO TO $16 
192 NYR = JGA(?2) 

SUNNAM(Y) = [G4(3) 

69 TO 116 
1048 RUNNAM(2) 

RUNNAM( 3) 

GO TO 116 
196 MODNAM(1) = IGAC2) 

MIONAM(2) = 1[G4(3) 

69 TO 116 
198 NAMEC1) = IG4(2) 

NAME(2) = 1G64(3) 


IG4(2) 
1G4A(3) 


GO TO {16 

119 NMAPP CL) = ITGAC2) 
vMOPP (2) = 1GA(3) 
GN TO 116 

11e NMOPP(3) = IGA(2) 
“MOPP(4) = [GA(3) 
69 TQ {16 


{14 NMOPP(S) = IG4(2) 
116 CONTINUE 


C 

CALL PGHNRK 
c TNITTALI7E THE ARRAYS AND INDICIES 
2n0 NOCv s 0 


Niav 2 0 


“JG = 164(1)/1000 
TITLE C1) & NEG 
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CT 


Y. 202 T22,8r2 
PEELE Ch) = IGA(2) 
TITLE CT¢#¢1) = IGA 3) 
CALL JSBLK(G4,68,-LG4,LG68+1G9,GREHF, IEDFG) 
IF CLEOFG ,NE, 1) GM TN 212 
212 CONTINUE 
9 206 Ie1-6 
Ak. QQ 2048 Jet, 
204 CT(I,J) = BLANK 
206 HT(T) = ALANK 


27 IF (NOG .NE. 164(1)/1000) GO TD 200 
T = 47)0¢€1G4(1)7100),10) 
TE (1. 2.69, 3) GO 70 286 
TE Ch. wkG@,. 2) GO To 206 
Cc HASE VARIABLE TITLE, 
HM = GAC2) 
BTC1) = GAC3) 
CALL DALK(GALGR-LGA+LGReIGR,SGREMF, TEGFG) 
8702) = GAl2) 
8T(3) = G4(3) 
GO TN 240 
C CROSS VARTABLE TITLE, 
2a J = YOO0(IGA(1)/10,10) 
IF (MNOCIGAC1),10),€9,3) GO TO 209 
IF (J ,EQ, 1) ¢M = Gate) 
TP €NOCV JLT. J) NOCV = J 
CT Che) | GACS) 
COLL DALK(GA,GR,-LGE,LGR,IGS.,NGREYF, TEQFG) 
CT(A,J) = GAl2) 
C™C3,J) = GAS) 
6 TM 210 
€ REPORT NIIMAFR FQ FRNSS VARTALE 1 OR | 2 oR 
209 TF (CT(U,J) .NE, BLANK) GO TO 9209 
cre4,J) = Ga(2) 
C¥(S;J) = GATS) 
G6 TO 210 
9209 IF (€CT(U,J) ,E9, REPRTS) GO 79 9219 
CT(4,J) S&S REPRTS 
CT(6,J) = GA(3) 
GQ TO a14 
CT(6,J) = PLUS 
210 CALL DALK(GALGILGA+LGR, IGS, NGRPHF,LTENFG) 
oer) 5 If (XEOFG,EO.1) GD TO 207 
212 CALL PGHORO 


oO 
~w 
oma 

9° 


sre 
c 
c 
I Pig NO Ale Tsl,Maxavy 
R(T) 3 0 


NO 216 JeleNOCv 
els S4(I,J) = 6 
IGCK = NUG#l00904400 
TFG] 3 0 
C STORE VALUES OF GRAPH, 
22 FF CYGS Ci) oGl ec EGERY CO. Th 259 
Joe 499(1GA01)710-199 
| tv-35 


224 


ee 


228 
eyo 


ra | 


ee 


FIND ROw TO STORE, 

TE (J. 26%. 12_60 TO 226 

IF (NORV EQ. 0) GN THN 222 

TF cACNO8V) .Ead, GAC2)) GOT) 224 
TF (NOSV EG, “AxX8vVV) GO TD 244 
“Vay = NIAVel 

3(NQBV) = GAC2) 

ACNORBV,1) = A(NOBV.1)4G64(3) 

G1) Tih 2uu 

IF (IFG1 NE. 0) GO TO 230 

IFG1 = 1 

VOSRv = NOBV 

TF (NORV EQ. 0) GO TO 228 
NOCKS Ss INTCALOGCFLOATCNOBV))/A4L0502,0)) 
“ID = QeeNUCKS 

N7OKS = ANCKS4} 

69 TO 230 

NOCKS = 0 

IF (NOCKS E39, 0) GN TO 237 

Il 3 “ID 

tJ = MES 

9 236 Tst,NocKs 

Td = EJ7e 

TF CTE 2GT¥e NOSBV) GO To 252 

IF (642) © S8C(II)) 232,242,734 
1 ONS) 

56 TO 236 

PPS EES i 

CONTINUE 


TI = NISAV41 

IF CII ,GT. NOBV) GO TO 240 

IF (GAC2) .€9, BCII)) GO TO 2be 
II = Ite) 

59 TO 238 


Pe OL? GT. YAXBVV) GO TO euu 
SCTE = Gate) 

NOBV s JI 

4(II,J) = ACII,J)+64(3) 


CaLL DSLK(G4,G68,LG4,L6B,IGB,NGRP4F,IEOFG) 
TF (TEOFG EG, 1) GO TO 220 


TE CNOCV 4EG, 0 ,MR, NORV .E9, 0) GO TO 260 


COLL REARGCAsMAXBVV 9, APNOSV,NICV) 
SORT ORDER 

NS 2 06 

IF (NOBV GT, NOSBV) NS = 2 
GEMEES 

Eur #9 

Ge. = & 

JWITEN TATION 

Ip = 4 

IF (NORV aGT, ROY) OS 0 
CONTINUNUS PAGE, 


?esa 

NUMBER OF LINES, 

NE 6S UB 

C4LL PGRORO| 

C4LlL GRAPH (NOBVNICV, br ReNLeNS»CULCLAIO,IP,TITLE sLTsFTeAT CT, 
* RM,C“) 


Cc 
260 EF CIEQEG JEO, 1) Gi TO .200 
€ 

CALL PGRDRD 

PEWIND NGRPHE 

ST ie 

ENO 


THE BDM CORPORATION 


G. SUBROUTINE ENDB 


ENDB Is one of the set of four subroutines used to read and write 
binary files (see subroutine BLOCK). The purpose of ENDB is to fil) the 
last block with records that will fal] at the end or a sorted file, write 
the block out, and write an end of file mark. These records have a con- 


stant of 10/9 


in the first word and the negative value of that constant 
in the second word, to sort properly on ascending, (word one) and descending, 
(word two) sorts. The calling sequence is 

ENDB (B, NB, IB, NFILE) 
where 

B is the block array, 

NB is the length of the array B, 

IB is the next position in which data are to be stored, 

NFILE is the logical number of the file. 
This subroutine must be used to close each file that is written using 
BLOCK. 
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ian NS ss aa ios ith iat a 


SURROUTINE END38(B,NA,NA,ITS,/NFILE) 
C ENDS FILE NFILE BY FILLING B WITH NINES? WRITING THIS OUT? AND wRINTIN 
€ END HE FELE, 
DOIMENSTON 8(N8) 
DATA FILL /1,E10/ 
VANDA S&S NA 
NG 19 TsTB,NR,VANOw 
jes ce eet al a al 
IF ((T4#1) .GT,. NA) 69 TO 10 
BCr41) 3s eFILL 
10 CONTINUE 
C wRITE 
wQTTE C(NFILE) ® 
ENO FILE NPILE 
FB =0 
RETURN 
FN 


THE BDM CORPORATION 


H. SUBROUTINE PRNTSO 


The purpose of the subroutine PRNTSO is to have the print line output 
properly according to the type of statistics collection, to have the report 
title printed where necessary, and to write the data onto the Graph File 
and the Cost File. The calling sequence is 

PRNTSO (TYPIND, IT, T) 
where 

TYPIND was the collection type code and storage index in compound form, 

{T is the time period number, 

T is the time at the end of the time period. 

Program PRNTSO now adds extra records to the Graph File to store the 
report number for each cross variable in a graph. These records have a key 
word with value 203 to enforce them to fal! in proper sequence when the 


Graph File is sorted. 
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SUMRNUTINE PRNTSUCTYPIND IT, 7, IPGRO4) 


TYPE CODE 

e CIUNT @ OF ARGUMENT KYTIN 
= CIJUNT | OF ARGUMENT XOIN 
55 af 

© HISTO 

= TACT 


AoW U 
« 


THE LINE COUNTER IS INCREMENTED FIR ALL PRINT LINES PRINTED BY 
STAT, LINES FOR SEFTTON HEADERS PRINTED S¥ THE CALLING SJUTINE 
SHNULD RE COUNTED JN THAT ROUTINE 


AMMA OQMOAHAOM Or 


CuMMUN /GSPOUMS TREG, TEIN,NCLOT,YONONDAY,NYR,RUNNAM( 3), 
* MIDNAM(A),NAME (C2) /-NMDPP(S) 

CL IMMOIN J/aR/ NBRAT 

YATA NPRNT S/6/ 

CUMMOIN SLINCOM/LINE, TOGSKP,ICLHR 

C7™MIIN AGENDAS TX71090), ISELCT(3000), NOSVS, IxXMAK, ISMAX 
DATA TH4EK, THA /LHAN, 30ND0/ 

COMYON SSVHSTOS XL, we, HAA, $20), NHC 320), NHMAX, 
* NMTSTOONHETHSTLE (20) ,CF(22),aVG,SD,™I 
LATA NMVHTSTM, NHMBK /£ B20, 22/ 

COMM IN 4QR°MDAs TE6APR (6,000), 680300), LIGe LGR. LGA, 
* LIND*G, T6R, NGREwF, TEOFG, GA 3) 
ATA L TG, LGM. LGS, NGREME ~ 400,300,3,3/ 

MMON ZTORS MV eKN1, OND, KR1, KRO,YMSGANROT, KG4,KGP,IT TYP 


- 


PQ ITVSL ENCE (68,76) 
DIMENST v(6) 

IMENSTON @nMQR( 11) 
DATA BYR SPOS THD TMQ PTH Se LAG e LMS HO, INT LHe LH9e tH / 
YaTa BLAS SEH 4, REPORT sHHREPONRT / 


“BTA ’ 4 / 


Tew Tye 4’ ra ty 


aon 


TNMGyY gs TYPIND S10, 
IF (itv® Le. 9 OR, ITYP 
TFCINDEX,GT.0) GO TT) 100 


GT, 5S) RETURN | 
¢ uf) ACTIVITY | 
| 
; 


PETURN 
100 GO TO ClaleisdeS} eI T¥P 


a) 


COUNT TYPE STATISTIC 
1 TF CIPGSKP EG, 0 , AND, IT (NE. 27 GO TO fo 
IF (LINE*S GE. 60) CALL LIN(4) 
CALL REPTTL 
CALL CLTHRD 
FaLLE LINC2Q) 
IF CIVT.NEsI) GO TO.10 
C STIRE REBIJRT NUMBER ON GRAPH FILE (KEY & 203) 
iF €*61,4E20) GO TO 10 
C CONVERT NOPT VALUE TO BLEHA 
TED s “hOT 
[3 = “IN(NTEMP,10) 
NTE“MO fs NTEMP/10 
tT? © “ORCNTEMO,19) 
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Tt 3&3 NTE“PB/{O 
C LEADING ZEROS DELETED 
TF (NRPT.LT,100) I1 & 10 
TF CNRPT,LT.10) Ie 3 10 
‘a Pst ALPHA INTEGERS INTO ATEMD 
ENCODE (4,1008,ATEMP) BLANK, ANMBR(J1¢]),ANMBR(T2¢1),A4NMBR(J 344) 
1004 FORMAT(UAN) 
OO B KGEKGI Se XG2 ee 
TF (TGRAPH(3,KG).NE,O ,AND, TGRAPH(3,KG),NE,“XV¥ ) GN TO BK 
TF (IGRAPH(U,KG),NE,9 ,AND, JGRAPH(4,KG) NE, TSELCT(KNI)D) GO TO B 
IF (IGRAPH(5,KG),NE.O . 45D, JGRAPH(S,KG) NE, ISELCT(KRI)) GI TO BR 
1G = IGRAPH(1,«G)«9A 
GA(2) s KEPORT 
GAC3) = ATEMP Sn 
CALL RLOCK(GA,GR,LGA,LGK,IGR, NGREHF) 
4% CONTINUE 
19 GO TH C%te12-139, YTYP 
11 CALL CNTLNO CINDEXK,IT,T,1V} 
Ove?) = 9v¢1) 


MAvey) 2 0 sed 
Nv€3) 3 0 

vV(4) 8S 0 

wRTTE (8) NRPT,TT,74,(O0vV(1),J 51,14) 

Cc COUNT GRAGH, 

IF (TPGREH,EO,0) GI TH Le 

G4(e) = IT 

Ie €€G6Y JEQe OG} GO TO ke 

94 9 KGSKG1,KG62 

TF (ITGRAPH(3,KG) NE, 0 ,4ND, IGRAPH(3,KG) .NE, KV) GO TO 9 
Ts (TGRAPHCU,KG) NE, 0 ,4AND, IGRAPH(U,KG) .NE, ITSELCTCKN])) 
* 69 Th 9 

TF (TGRAPH(S,KG) ,NE, 9 AND, IGRAPH(S,KG) ,NE, ISELCT(KRY)) 


* GG TO 9 
IG 3 TGRAGCH(1,KG) 
GA(3) = OVC2) 
CALL BLOCK (GA,GRB,LG4,1 68,169, NGREHE) 
9 CONTINUE 
G91 TO 32 


¢ COLCT TYPE STATISTIC 
$3 Cart ECLILNO CINDEX,IT,T,9V) 
SPITE (8) NRPT,TT,T4,(9V0T) + T21,14) 
c CULLECT GRAPH, 
TF CJPGRPH,EO,0) GO TO le 
TE (KGi E99, 0) GO TO 12 
f£$a(?) = JT 
09 $4 KGSKG61,«G62 
TE (TGRAPH(3,KG)NE,O, AND, JGRAPH(3,KG) NE.KV) GO TO 14 
TF (ITGRAPH(U,KG).NE,O,AND,IGQAPH(U,KG) NE, ISELCT(KNI)) GO TO 14 
TF (IGRAPM(S, KG) BNE, O,AND,TGRAPH(5,KG) NE,ISELCT(KRI)) GO TO ju 
TGS = [GRAPH(2,KG) 
IS = IGRAPH(1,«G) 
6403) = OV(IGS) 
COLL ALOCK(G6,GR,LG4,LGB,IGR,NGRPHF ) 
14 COITINUE 
te CALL LING1) 
We TION 
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HISTOGRAM TYPE STATISTICS COLLECTIIQN 

IF CNHCINDEX),.GT,9) GO TO UN 

cMPTY HISTOGRAM 

TF (IT EQ. 1 .4ND. LINE*S ,GE, $0) LINES61 
IF FIT NE, 1 AND, LINES! ,GE,. 60) LIVE=61 
CALL LINCO) 

IF CIT ,£9,. 1 .OR,. IPGSKP NE, 0) CALL REPTTL 
“MITE (NPRNT, 43) IT 

CALL LIN(1) 

FORMAT (21xX%,33HN] HISTOGRAM DATA FOR TIME PERIOD, 16) 
SETURN 


PRINT 4ISTOGR4AéM 

LINE & (NACISNEK)¢1)/2 © 7 

IF (IJPGSkKP EG. 1) GO TO 4 

TF (TF FQ, 1 , AND, LINE*LINC+u GE, 60) LINE 361 
IF CIT NEw 1 24ND, LINESLING ,GE. 60) LINE = 61 
Cale LINN) 

IF £07 80, 3) 
IF (TOEGSKe FD, 
C4ayL PESTTL 
CLL wRETS, (INOFY,IT,T,0V) 

wRTTE (8) NRPT,IT,14,00V(T),121,14) 

Cue LINCLINC) 

“~TSTIGROM GRAPH, 

TE (TOEGROH LED, 9) RETURN 

TE (KGL FQ, 9) BETURN 

29 §9 «GeKn61,«G2 

TE (TGRAOM(3,KG) NE, O AND, TGRAPH(5,KG) NE.KV) GO TO 50 

TF (IGRAPH(U,KGE) NEO AND, 1GROPrH(4,KG) NE,ISELCTCKNI)) GO TO 56 
IF (TGRAPH(S KG) NE SD. AND ge TGRAPH(§,KG) NELISELCTCKRI)) GO TT 59 
IGS = [Grd PH62,«5) 

IG S&S [GRAPH(},«S) 

Fe C368, <6T, &b Go 

G4(2) 2 [Tf - 

G4(3) = OVEIIGS) 

CALL BLOCK (64,59.158,1632169.1GRPHF ) 

69 TN So 

TNTERVEL CASE, 

~N 3S NHC INDEX) 

TF (CIGRAOH(6,KG).NE, TT) G! TU $9 

G4(A) = xKLileeen 

DO Gh Tse),NN 

Gar) sGa(2)eow 

TF (16528) 45,46,47 

GAC3) s 4(I,INDEX) 

6) TO A 

G4(0$) = FCT) 

G9 TT) 4A 

G4¢%) s CFC(T) 

C4LL BLOCK (G4,6R,LG64,LG8,IGR,NGROHF ) 

CONTINVJE 

RETURN 

END 
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THE BDM CORPORATION 


1.’ SUBROUTINE REPTTL 


The purpose of the subroutine REPTTL is to print the report title 
data including the definition of the transaction of the statistics that 
follow. Each report that is a continuation at the beginning of a page is 
so marked. There are no parameters in the calling sequence. All data 
must be stored in the COMMON areas. 

The references to the graph and cross variable number in the report 


title have been improved in this version of REPTTL. 
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* oTVeTReLENNeLENR GO LENT 


SUBROUTINE REPTTL 


COMMON se R/S NPRMT 

OAaTA NPRNT /A/ 

CUMMIIN SEGENT AS TX01000), ISELCT( $000), NOSVS, IXMAX, ISMAX 
MATA TueMaW, [TS¥Ax 41000730007 

COMIN SSEQIZTSVse TSN »MAXNe TGIN, TSR MAKR, IGOR, ITAISP,ICODE, IY 
COMMUN STORS KV KNIT, KNA,KRIZKRO,MSG»NRPT,KG1,KG2,I1 TYP 

COMMON AGRPMDAS TGFAPH(6,400), GB(300), LIG» LGB, LGA, 


* LINDX¥G, IG8.s NGRPHF, TEOFG, G43) 


DATA LIG, LGb, LGA, NGRPHF / 400,300,3,3/ 
ySta. FO + 8 Ss 


L FURMAT (10H aweee KILL TS, SX, 7A6,} SK p2OM( TRANSACTION TYPE seer lI 9, 


* 1H) .12OK,2bb 1K, SHekene) 
2 FORMAT (6h 0 USK eIHNODES cao 07 9111) 
BR ENGMAT (HH PLS ePHNIDES . eee re BXe SHALL) 


4 RORMAT (21K, 9H2ESIURCES,9I11) 
5 FORMAT (24%, 9HRESNIRCES, 5X. 34ALL) 
& FIRYEST (21% ,9HRE STURGES, 2%, 74P2TMARV, 11 3,22N, WITH ALL SECONDARIES 


* ) 

T FIRMAT (C21 K,9HRESTIUACES, CX, FHSECINDARY,F44,204, WITH ALL PRIMARIES 
* ) 

R FORMAT (6H pLSK,TAHGRAPH NJ, gage TA p SK, LSHCROSS VARTABLE, 44, » 


SR. 


1e 


GRAPH INENTIFICATION LINE, 


1 


12) 
DIMENSION CONT(C2), WT(2) - A 
DATA CUNT, BLK/OHCINTIN, OHUATIING LM J 
PO 12 Tet,2 
PE MELT 60.0) Geto it 
VWTCLTYSCONTCL) 


G1 TO te 
WT CL) SRLK 
CONTINUE 


ITENDSMSG644 
RITE (NPRNTZ1) NRPT, CISELET(I),IS4SGC,IEND), KV, OUT 


TF (KGY,LE,.0) 69 TN 1142 

A {11 KG S&S KG1,KG?2 

TF (ITGPAPH(3,KG),NE,O ,AND, ITGRAPH(S,KG) NE,KV) GO T9 1141 

TF CIGRAPH(G,KG),NELO (AND, ITGRAPH(U,KG) NE,TSELCTCKNI)) GOTO 111 
TF (IGRAPH(S,«G),NE,O ,AND, IGRAPH(S,KG) NE,TSELCT(KR1)) GO TO 111 
“OG = IGHAPH(1,KG 171900 

NCv = MOOCIGRAPH(1,KG )419,10) 

ARITECNPRNT,ZA) NOG, UCV 

(31) Ty) lie 

CONTINUE 

CONTINUE 

NODE LINE, 


GO TO (1352135214). IGN 


aRITTE (NPRPNT,2) (TSELCTCI),TEKNI,KNA) 
OND 2 KNGeKNI OF 

6A TO £5 

-OTTE (NPRNT, 3) 

S69 8 0 

PESOURCE LINES 

GY Ty C16e16017419419)5 T6718 
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Zz 

D 
J 
wou oa 


NR? 


(NPRNT,4) 
KRY 
«Re 
NRQeNR1 +] 


fy 20 


(NPRNT,S) 
0 


{> 


1 
29 
(NPRNT,6) 


(NPRNT,7) 
=e 

ISR 

TSR 


20 CALL LINGG) 


TF (TT NEw 1) RETURN 


(TSELCTCI),TEKR1,<R2) 


ISELCTCISR) 


ISELCTCISR) 


L = SeYAXOCO,NND) 4AxK0(0,NRS) 


TF (NP 
I? (NN 
* 

aa (NN 
® 
RETURN 


en 


S ~tte 03 
D NE e 0) 


O sD, 6) 


Lele) 

wRITE (8) NRPT,LOpLe ITYP,KVeNND YS NRS, 

(ISELC TCI), TEKNI,XN2),CISELETCI), TSNQR1,NRO) 

WRITE (8) NRPPT,TOoL eo TL TVO,KVyNNDQNRSy 
(CISELCTCI)-ITSZNRINRe) 
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SUBROUTINE GRAPH 


The program GRAPH prints out the graph from the array values set up 


by program PGRAPH, properly scaling the horizontal and vertical axis for 
the values to be plotted. The title section for cross variable identifica- 
tion has been altered to provide two extra lines for the report number or 


numbers from which the points are plotted. 


| 
, 
| 
| SUBROUTINE GRAPH (M,N, AsB,NLANSeCULCL/TO-IPo TsLT»FT,AT,CT»,BM,CM) 


PURPOSE 
PLOT UP TO NINE CROSS VARIABLES VERSUS A BASE VARIABLE WITH THE 
RASE VARTABLE PLACED EJTHER ON THE SIDE DR THE BOTTOM 1)F THE PAGE, 


NESCRIPTIIN OF PARAMETERS 
m © NUMBER OF BASE VARIABLE VALVES. 
x NUMBER OF CROSS V4RTOBLES, 
b © MATRIX OF DSTA TO BE PLOTTED, ACI, J) HAS THE VALUE OF THE | 
JeTH CROSS VARTABLE AT THE TeTH BASE VARTABLE VALUE, 
3 = MATSITX (OF BASE VARTABLE VALUES. 
Ni © NUMBER CF LINES, IF NL IS LESS THAN 1 THEN NORMAL OF Uo, 
NS © SORT ORDER DF BASE VARTABLES, Oe JN ASCENDING ORDER, toe IN | 
NESCENDING ORDER, 2= SORT INTD ASCENDING ORDER, 3= SORT INTO 
DESCENDING TRDER, 
CRASS VARTASLE UPPER LIMIT, 
CROSS VARTASLE LOwER LIMIT, IF CUsCL=0 THEN MAKE MAK AND MI 
ORTENTATIIN, Of BASE ON SIDE, Le BASE JN BOTTOM, 
CINTINUCUS PAGE FLAG, 8 CINTINUDUS, Le PAGE BREAK (47 GRAPH 
LINES 0% FIRST PAGE AND UP TI SO GRAPH LINES ON THER PAGES,) 
© TITLE ARRAY, 
© LENGTH OF TITLE ARRAY, 
e FYRMAT OF TITLE ARRAY, (ASSUMED TD BE ONE LINE), 
HT © RASF VARTARLE TITLE (ATC3), 346), 


DIMA OMMARAANAANNOAM 
t 


* mM 
Cyr < 
ees 


ANNAONMOD 
od 
a] 


CROSS VARTASLE TITLE (CTC 3.N), 346 EACH), 
JINITS OF MEASURE OF RASE VARIABLE VALUES, 
UNITS OF YEASURE OF CROSS VARTABLE VALUES, 


AOA 
ao 
ra 


OTMENSTON ACM,N),8(¥%),87(03) ,CTCON)+TCLT) 


oO 


DIMEVSION DECLOL) eSYMC10) eC VE (324024 STC40) BACK), TMS( 3) BL C11) eaten Kereee 


im) 


DATA SYM/ 6H kee eH, HHO HHH, OHTKERRRRR, OHewwwwn, KHESZSES,OMFSSHES, 
* SHONDIND SHXXXKXXX,OHP?I727777 OHI III II 
NATA TYS,RLANK/6HMUL TIO, 5HLE VAR, 6HIABLES, 64 / 
C TP LINE, 
i FORMAT CLNO,LSHCQOSS VARIABLES, J 3X, SHesey J 0([OHewnwemnete) ) 
C “VISOLE LINES, 
? FQRMAT (1K p SAG, AX, ALA LXeFO.O,1 HH, LOLAL, LHe) 
ENQMAT (1K, SA6,AK AL, TIXeIMIT,L0LAL, 1471) 
¢ aoTrTnyw LINES. 
. FOGMAT CLtyTBMVARTARLE X FACTIRG, 10%, SHeee, 10 (1 OHeewennoete) / 
e LM, LOMBASE, .eaantESale 2Xep 11 04K, F6.0)/ aa 
° Lee LORCROSS peer Rel re NIK, S46,2K, db) 
newt gn 


. 
o? €¢mt } 


y- ss 


55 


65 


pall, 


72 


ksT 

J=le. 

TE CICGTOMY GO Th 40 

TF CBCK) TLE. BCJ)) GO To 35 
Cz4(«) 

BR(«)S5(J) 

R(J)=C 

DA 3O NLSi,® 

CsatK«,Nn{) 

ACK NY) Ba0I,%9) 

ACTI,N1) SC 

TK 

ezKeLl 

TE _€KG720) GO Th 25 
CONTINUE 

FE Ci eGhet)? G00 10 20 

FE. ENS SERSe) GO TH 50 

DD 45 [21.M 

B(1T)seB8(T) 
PRIN? TITEE, 
wPITE (6,FT) CTT), LTe1.T) 


Culscu 

CLESCL 

IF CCULNESO.0 5O8, €L SNE.G.0) GO TO 69 
CULS4AC1,1) 

CEUSEh CTW) 

py 55 Jei,N 

0m §S$ [s1i1,™ 

FE COUR CET, Ae hed ))) -CULSAChs)) 

IF €CLL.GT.4(I,5)) ClLLsstt,J) 


CONTINUE : 
TF ‘ECU GN. CLE Clb 166 

CLL = CLE LOE 

GUL = Ueno. 


TF CNL ,{G1 4500) GO TH a10 
NLL She 
TE CNET. 2) NEbSis 


99 65 J#i,40 
ST(1) SRL ANK 

Nr 65 Tesi, 

Cyvk Cl eJ)SBLANK 
Cvl (2,228 Y4(1G) 
CvL(1,3)=T¥S(1) 
CvL fe, 3)sThSl2) 
Cvib (3, 3)=TMS(3) 
Oty Fe Lei,N 


L = sete? _ Eke 


CvLCeoL)sSYMCJ) 
L=t+] 
Bey FO JBie S 
CvLCJ,LIeCT(OJS,1) 
Lb © Fi 
QO 72 Jsu,6 
CvitJe3,L) & CTI,T) 
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€ 


&9 


i 


14S 


IF (NLLGLT.4eNed) NLL = UeNeou 


IF €I90,E9.1) GO T9 200 

RASE ON SIDE, 

SMLLSMaxO(M,NLL) 

FNLLSNLL 

C=8(2)9B(1) 

oO 75 [s3,™ 

IF (SFT) -B(Tei).NE.C) GO TT) 85 
CUNTINUE 
EQU4L INCREMENTS, 
HSINTCCENL LOL. O)SFLUAT (Mas) ) 
LSsSC/ : : 
TLEINTCECOS# (FNL LoL 0) eCRFLIAT(M@1))/(2,08DS)) +3 
RS=B(1)-OS*FLOAT(IL=1) 

Jos 

THTe“ONCIL,I) 

Csh(1) 

PsAeM) 

nf) 80 Tsi,™ 

S(IL)SILeIR* (11) 

B69 TH 9S 

INE QUAL INCREMENTS, 
DSSCROMI@RCLIISCKENLL #1, 0) 

HSU 

THsH 

T+] =} 

RSSh(1) 

€-8(1) 

O28") 

90 99 [si,M _ ; 
BCIT)SAINT( (BCT) #8S4,58#08)/05)41,9 
SC4LING OF BASE VARTABLE, 

HsOS eh 2 

CALL SCALE (C,0,-H,8SF) 
BSaxS/8SF 

OSS0S/3SF 
CROSS AN BOTTOM, 
NCS(CULSCLLI/19090,9 

C=1,9/0€ 

99 130 Tsai.” 

Ls4(l)#10900.9 

99 130 Jia 

«a( (S(T, JI@CLL) #C+,5) 01,9 

IF (K LTsi1 ,OR, K,GT.101) K=0 
S(T, J)SL eK a1 Gel 
SCSLING OF CROSS VARIABLE, 

HsNC wh 

CALL SCALE CCUL,CLLLH,CSF) 

909 155 Jsi,i) 

ALC JISCCLL¢OCHFLOAT( J#1 0910) )/0SF 
STOWE LASRLES, 

OD 96S Js1,4 

SAC J) SRL ANK 

5A(2)sC™ 

T=S I1V-50 


{RO FORMAT (UC6AL,4x)) 


IF (NLL.LT.30) Ise 
Jel+23 ee a in, thea 5 pn 
C FOR COMPUTERS wITHOuUT DECIDE USE THE FOLLOWING WRITE@READ SEQ, 
c REWIND 109 
C WRITE €19,179) 8T,R™ 
CI7AO FORMAT (446) 
C RF AwIND 10 
CPE AD (10,175) (SICK) KSI, J)_ 
C175 FORMAT (244}) 
Js[e17 
DECIDE €30,180,AT) (STCK).KET,J) 
TzJe3 
JaJea 
DECODER (6,180,8™) (ST(K),K2T. J) 


60% TO 306 


C BASE ON BOTTOM, 
eno 97 205 Js1,3 
295 Fa( J sAT CJ) 
RA(U)=sBM 
Teste 
TE (1,GT,25) sas 
TF CP ET 2) Ts2 
Jzres 
EERE A Oe : 5 te iat 
; “RITE (19,210) CM 
C210 FORMAT (Ab) 
C RPEWwWINNA 19 
€ PEAD (10,215) (ST(K),KSI,J) 
C215 FORMAT (641) 
NECCDE (6,180.04) (ST(K),KST,J5) 


Czef2yeB(1) 

ON 225 1s3,™ 

KE CACTI w8CEet) NEC) GO TD 240 
275 CONTINUE 
EF C4, Gie¢103) GO! TY 620 
Ds8(1) 
“43C 
CSAINTOCIOOLOSFLOIAT (Me) ) 
ACLISAINT(, S#(100, AMC eFLIAT(4%91))) 01,0 
O09 230 Ts2,M™ 
230  FACTISB(ye1I+€ 

CsH/C 

DD 235 Ts1,11 
23s PLETISO+CHCFLOAT( Tei) #10.9¢1,998(1)) 


60 TO 255 

C UNEQUAL INCREMENTS, 

240 €2(38(")98(1))7190,0 ee MORI Ae ae ee) 
Ns8(1) 


O 24S [aiy™ 
aus BOTIRAINT( (ACT) @0)/0) 41,0 
NQ 250 Yet,1! 
250 AL CT) SISFLUATCI aL Oe10)#C 
é. SCOLE Base, ET RT 
255 “sC*#i0,9 
IV-5] 


RR 


COLL SCALECBLO1),BLO10)+%,8SF} 
IF (5SF,E9.1) GO TH 300 
MO 298 Tsi,1i 
295 PLOT) S3L (1) 78SF 
C CROSS VARTARLES, 
300 FYLLENLL 
NCS(CULeCLLI/SCFNLL@1,0) 
TE EOE 228 O60 0) DE os 0 
C#1,9/9C 
01 305 Tei. 
Lo=5(1)*#19,0 
DY 395 Jeien 
“ENLLeINT(COCT,J)=CLL) *#Ce,5) 
IF (K,LT,1 .OR,. K,GT.NLL) K50 
39S A(T, J) SK xICT0004L oJ 
C SCALING OF CROSS, 
4S0C#5,0 
CALL SCALECCLL~CUL,H,CSF) 
SSsCuL/CSF 


es _DSS=DE/CSF = os 
Tse5 
THIS} 
5 SURT LCA, 
306 LSM 


FE €LLZET.IO Gi TO 400 
319 Le(Lej)Ze 

) 329 T21,N 

Ks] 

J2Tet 

TF (J.GT.MN) GO TO 325 
315 TF (ACK),LE.4(63)) GO TO 320 

Csac(x) 

a(K)SA( SJ) 

A(J)=sC 

TsK 

KsKeL 

1F («.GT.0) GO TD 315 
$20. CONTINUE 
yas TF (1,677.1) GO TD) 310 


¢, PRINT THE REPORT, 
$3) Ke] 
LINES3 


“RITE (6,1) 
9D 390 TSheNee 
C=FLUAT(CIT)*10000,0 
On 335 Jsi,101 
335 Ol CJ)SRLANK 
TF (&,.G6°."N) GD TO 370 
$40 L2=4(«K)710000,0 
$45 IF _ (L.EG.1) GON TO 350 
TE CL aGl,1) GO TH 376 
97 Th 360 
340 MYSAMIN(A(K),10,0) 
J1=(8(K)°C)/10.0 
TE (UCC SID-EG, BLANK) G1 TO 355 
O€(J1)=sSY¥4%(10) 
GY TO) 360 


\W-52 


$55 MCC JLISSYM(K1) 


369  <KsKel - 
TF (K,LE.MN) GO TN 34n 
379 T1sT 


IF(T,GT,40) J1s1 
TF CLINE,LT.5S0 ,OR, 1P,€0,0) GO TO 375 
LINE=0 
ROE 6S) 
375 LINFSLINES! 
TF (THI ,EQ.MUD(LT,IH)) GO TQ 580 
WRITE (6,3) COVL(J,71),Je1-5)-ST(11),0€ 
G) TU 390 
3AR0 CERSePSeFLOAT(Io1) 
—. RITE (6,2) COVE CI eT i) eJebe de STCUL ele OC 
590 CONTINUE 
WRITE (6,4) BSF,8L,CSF,BA 
RETURN 
C FRROR NOTES, 
ano WRITE (6,405) ™ 
405  _FURMAT (IMO,274HNUMRER TF BASE VARIABLES [S,13-7H, BADy) _ 
RETURN 
410 WRITE (6,415) NL 
41s FORMAT (JARONUMBER F LINE IS,13,264, EXCESSIVE, NOT ALLOWED,) 
RETURN 
urn WRITE (6,425) ™ 
425 FORMAT (39HOTOD MANY BASE VALUES FIR BOTTOM ORIENT, I3,7HGT 1014) 
— eRe ke 
END 


